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abstract 


This thesis documents the design, validation, and 
demonstration of a simulation model for the instream offload 
of vehicles from a Roll On/Roll Off ship. The model is an 
object-oriented, discrete event simulation written in MODSIM 
II. The objective is to design and demonstrate a model that 
can accurately estimate throughput times for the total of¬ 
fload of a vessel instream using various mixes of lighter¬ 
age. with this tool. Logistics Over The Shore (LOTS) 
planners will be better able to estimate throughput and 
possibly tailor their mix of lighterage to a given set of 
fixed parameters. 


OTIC QUAUTY INSPECTED 6 


taemnnioa For J 

STIS tfPA&I 


DTIC T.-.B 

a 


a 

Juat ..V CAtliB— 



By- 

JDI 6t 1- It.:* i ^ 




Dial 







TABLS or COHTBHTS 


I. INTRODUCTION.1 

A. THE IMPORTANCE OP LOTS.1 

B. GENERAL DESCRIPTION OF A LOTS OPERATION.3 

C. PROBLEM.4 

D. PROPOSAL.5 

II. THE LOGISTICS OVER THE SHORE OPERATION.7 

A. OVERVIEW OF THE LOTS OPERATION.7 

B. ROLL ON / ROLL OFF SHIP.11 

C. LIGHTERAGE.12 

1. LCU 1466, 1610, and 2000 Class.12 

2. Logistics Support vessel (LSV).13 

3. Causeway Perry (CWF).15 

D. RO/RO DISCHARGE FACILITY (RRDF).15 

E. BEACH DISCHARGE FACILITIES.17 

1. Bare Beach Operations.17 

2. Floating Causeway Pier Operations.18 

3. Elevated Causeway Pier Operations.18 

iv 





















III. THE MODEL 


20 


A. BACKGROUND. 

B. ASSUMPTIONS. 

C. SHIPS. 

D. LIGHTERAGE CONTROL POINTS. 

E. BEACH AREAS. 

F. REFUEL AREA. 

G. LIGHTERS. 

1. Approach and Moor to Ship. 

2. Onload. 

3. Cast amd Clear the Ship. 

4. Transit to the Beach Area Queue 

5. Approach and Moor to Beach. 

6. Offload. 

7. Refueling. 

F. MODEL EXECUTION. 

1. Input. 

2. Object Building. 

3. Replication. 

4. Output. 


20 

21 

22 

25 

25 

26 

27 

28 
28 
28 
29 

29 

30 
30 
32 
32 

32 

33 
33 



























IV. ANALYTICAL PROCBDURES.34 

A. BACKGROUND.34 

B. LIGHTER CYCLE EVENT TIMES.35 

C. ANALYSIS.38 

1. Validation Scenario.39 

2. Validation Analysis.40 

3. Demonstration Scenarios.43 

4. Demonstration Results.45 

V. CONCLUSIONS.52 

A. CONCLUSIONS.52 

B. RECOMMENDATIONS.53 

LIST OP REFERENCES.54 

BIBLIOGRAPHY.56 

APPENDIX A LIST OP ACRONYMS.58 

APPENDIX B OBJECT-ORIENTED SIMULATION PICTURES.59 

APPENDIX C RO/RO OFFLOAD M)DEL SOURCE CODE.81 

APPENDIX D SAMPLE INPUT FILES.227 

APPENDIX E SAMPLE OUTPUT FILES.236 

INITIAL DISTRIBUTION LIST.240 


Vi 
























SXKCOTIVB SUmOUtY 


Responding to the collapse of the Soviet Union, the U.S. 
military is shifting its focus from global war and land 
combat in Europe to regional contingencies in the third 
world. This new role of the U.S. military will require more 
flexibility and speed than has ever been required 
previously. 

Responding to the potential requirements to conduct 
contingency operations in highly varied geophysical and me¬ 
teorological conditions, the DoD has developed the Logis¬ 
tics Over The Shore (LOTS) system as an alternative to the 
modern port. 

LOTS is an integrated system of equipment, personnel, 
and procedures used to load and unload ships without the 
benefit of fixed port facilities, in either friendly or un¬ 
defended territory. It is designed to provide the 
flexibility U.S. forces will need in the austere environ¬ 
ments that they are likely to encounter. LOTS operations 
may be conducted over unimproved shorelines, through fixed 
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ports that are not accessible to deep draft shipping, and 
through fixed ports that simply lack the facilities for ef¬ 
ficient offload without LOTS capabilities. The most in¬ 
volved form of LOTS, and the focus for this thesis, is the 
offload of equipment and cargo over an unimproved shoreline 
or instream offload. 

A basic problem facing military planners is that they 
currently have no comprehensive means of estimating the 
throughput capability of an operation for various mixes of 
oceangoing ships, lighters, and material handling equipment 

The objective of this thesis was to build an Object- 
Oriented computer simulation model in MODSIM II that esti¬ 
mates the throughput capability of an instream vehicle dis¬ 
charge operation from a RO/RO type vessel. The model used 
to generate these planning factors serves as a computer- 
based decision aid wherein the input can be modified to al¬ 
low a planner to experiment with various combinations of 
equipment and shipping configurations. 

To ensure that the simulation model performed as re¬ 
quired, a two phase process was used to first validate, and 
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then demonstrate the model. The validation phase consisted 
of running the model using a real world scenario for which 
the empirical offload time was known, and then comparing the 
two. After 300 replications, the mean offload time from the 
model compares well with the empirical offload time for the 
same scenario. 

The second phase was to demonstrate the model. A four 
point design space was devised where the variables were a 
high and low mix of lighters at short and long distances 
from the beach. As would expected be when comparing the 
results of these four scenarios, the high mix of lighters 
had a significantly shorter offload time than the low mix, 
and the short distance scenarios had shorter offload times 
than the long distance scenarios. 

In STommary, the model is valid for estimating RO/RO in- 
stream offload times within the confines of the assumptions 
made in the modeling process. 
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I. IHTSODUCTIOir 


A. THB ntPOSTANCB OP LOTS 

Responding to the collapse of the Soviet Union, the U.S. 
military is shifting its focus from global war and land 
combat in Europe to regional contingencies in the third 
world. Force sizes are being reduced and fewer units will 
be forward deployed. The U.S. will depend heavily on airlift 
and sealift to achieve rapid response. This new role of the 
U.S. military will require more flexibility and speed than 
has ever been required previously. For its part, the U.S. 
Navy has shifted focus towards littoral warfare, and the 
ability to project military power in the worlds coastal re¬ 
gions is gaining in importance. 

Military and commercial airlift have been relied upon 
heavily in the past to achieve a rapid build up of forces 
and will remain a key asset. Airlift alone has never been 
able to transport more than a small fraction of the required 
assets, however, and with fewer land-based, forward deployed 
forces, the demand for airlift will be far too large for a 
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reasonaU^le niunber of aircraft to accommodate. Thus, sea 


lift will play aui ever increasing part. 

The use of strategic sealift in the rapid deployment, 
sustainment and re-deplo’j'ment of forces overseas is essen¬ 
tial in the execution of any US Department of Defense (DoD) 
contingency operation. Due to the expense of acquiring and 
maintaining large fleets of lift assets, DoD has turned in¬ 
creasingly to the commercial sector to provide lift. The 
positive aspect of this is increased cost savings for all 
concerned, provided there is no actual contingency. One 
negative aspect is that commercial shipping has grown 
dependent on fully cellularized containerships. The large 
modern port facilities normally required to offload com¬ 
mercial vessels limits the flexibility of our military 
forces. In the regional contingencies that are likely to 
challenge U.S. forces in the future, flexibility is 
essential. 

Responding to the potential requirements to conduct 
contingency operations in highly varied geophysical and me¬ 
teorological conditions, the DoD has developed the 
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Logistics Over The Shore (LOTS) system as an alternative to 
the modern port. 

B. OBNBRAL DESCRIPTION OP A LOTS OPERATION 

LOTS is an integrated system of equipment, personnel, 
and procedures used to load amd unload ships without the 
benefit of fixed port facilities, in either friendly or un¬ 
defended territory. It is designed to provide the 
flexibility U.S. forces will need in the austere environ¬ 
ments that they are likely to encounter. LOTS operations 
may be conducted over unimproved shorelines, through fixed 
ports that are not accessible to deep draft shipping, and 
through fixed ports that simply lack the facilities for ef¬ 
ficient offload without LOTS capabilities. The most in¬ 
volved form of LOTS, and the focus for this thesis, is the 
offload of equipment and cargo over an unimproved shoreline, 
or instream offload. 

The LOTS transfer operation can be broken down into 
three areas; the offload of roll-on/roll-off (RO/RO) ships 
through a RO/RO discharge facility (RRDF), the offload and 
transfer of containers from either a self-sustaining or a 
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non-self-sustaining containership, and the transfer of fuel 
from an Offshore Petroleiim Discharge System (OPDS) . The 
first two operations are the major concern regarding 
throughput. For the third operation, once the OPDS is in 
place, the throughput is a known quantity and is easily 
controlled. 

C. PROBLEM 

A basic problem facing military planners and LOTS op¬ 
erational commanders is that they currently have no compre¬ 
hensive means of estimating the throughput capability of an 
operation for various mixes of oceangoing ships, lighters, 
and material handling equipment. The joint tactical publi¬ 
cation regarding LOTS [Ref. 1] provides a limited set of 
planning factors that would be useful to planners provided 
that their mix of equipment falls within the limited scope 
of these factors. 

Conversations with personnel at the JLOTS Test 
Directorate [Ref. 2] and personnel in the Logistics Direc¬ 
torate of the Joint Staff [Ref. 3] revealed that there is a 
pressing need for a comprehensive set of planning factors as 
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well as some sort of tool (e.g., a con?)uter simulation mod¬ 
el) that can be used by plcuiners in the future to update 
these planning factors as required. 

Several computer based simulation models of LOTS opera¬ 
tions have been developed, and the JLOTS Test Directorate 
has some of these models in hcuid, but each of these simu¬ 
lations is written in a different language, with its o%m 
software and hardware requirements. The JLOTS Test Direc¬ 
torate has found them difficult to comprehend and iit^ossible 
to inclement as an actual functioning tool. 

D. PROPOSAL 

The limited set of planning factors currently available 
in Joint Pub 4-01.6 [Ref. l] is inadequate for the needs of 
JLOTS planners. The objective of this thesis is to build a 
computer simulation model that estimates the throughput ca¬ 
pability of an instream vehicle discharge operation from a 
RO/RO type vessel through an rrdf under various scenarios. 
The model used to generate these planning factors will 
serve as a computer-based decision aid wherein the input can 
be modified to allow a planner to experiment with various 
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combinations of equipment and shipping configurations. As 
equipment configurations change, and the availability of 
lighterages varies, the model can easily be modified to re¬ 
flect these updates. 

Validation of the model will be accomplished by 
con^airing model results with real world figures for a known 
scenario. Further, we will use four scenarios to illustrate 
the capability of the model. These scenarios reflect a 
range of situations that a LOTS planner may face and will 
serve as instruction as to how the model may be employed. 

This thesis is organized as follows: 

Chapter Title/Description 

I. INTRODUCTION. 

II. THE LOTS OPERATION. This chapter provides a 

brief description of a LOTS operation 
instream offload, a description of the 
typical environment, and a description of 
the equipment used in the operation. 

III. THE MODEL. This chapter provides a complete 

description of the simulation model 
including assion^tions and input and output data. 

IV. ANALYTICAL PROCEDURES. This chapter 
provides the origin for model event times and 
a discussion of the results. 

V. CONCLUSIONS. This Chapter describes 
conclusions and recommendations. 
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II. THB LOGISTICS OVSS THE SHORE OPERATION 


A. OVERVIEW OF THE LOTS OPERATION 

Logistics over the shore involves loading and unloading 
military or commercial ships in what would be considered 
less than ideal circumstances. The operation could take 
place instream or in port facilities that are either damaged 
or in some other way lack the facilities typically required 
to handle a modern ship. In the instream offload, the ships 
are located anywhere from one to several miles offshore. 

The cargo and vehicles are then loaded onto various types of 
lighterage for further transfer over the beach to marshaling 
areas. The vehicles and cargo then continue their journey 
on land via the standard means. A LOTS system is composed 
of the following basic components: [Ref. 1] 

1. Seagoing cargo vessel 

2. Off shore cargo discharge facility 

3. Shallow draft lighterage 

4. Shoreside discharge facility 
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The study of a LOTS operation can be subdivided into 
four major areas; vehicle offload frc»n a RO/RO type vessel, 
container offload from either a self-sustaining or 
non-self-sustaining container ship, break bulk offload, and 
the bulk offload of liquids such as fuel and water. This 
thesis is focused on the offload of vehicles from a RO/RO 
type vessel, thus, the remainder of this chapter will be 
limited to descriptions of this operation and the specific 
equipment involved. 

A typical RO/RO LOTS operation can best be illustrated 
by describing what happens to the cargo as it moves from the 
bowels of the seagoing vessel to the shoreside discharge 
site. Figure 1 depicts the setup of some of the typical 
LOTS components [Ref. 1]. On the beach side of the opera¬ 
tion, discharge of cargo can be accomplished on a bare 
beach, on an Elevated Causeway (ELGAS) or pier discharge 
which couDd be either a floating causeway pier or the pier 
in an unin^roved port. Some of the different types of ves¬ 
sels that can be off.!.oaded using the LOTS system are also 
depicted in Figure l. The Non-self-sustaining container 
(NSSC) ship would be offloaded using a crane ship (T-ACS), 
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the Roll On/Roll Off ship has a RO/RO Discharge Facility 
lashed alongside, and the Maritime Prepositioned Ship (MPS) 


is being offloaded using Lift On/Lift Off or LO/LO tech¬ 
niques as well as providing fuel and water to the beach. 



Figure 1: The LOTS Operation 

















The offload of a RO/RO can be accomplished in two ways. 
The first method is LO/LO operations in which vehicles and 
cargo are craned off, either by the ships organic crane or 
by a T-ACS crane ship. The second method is to use a RO/RO 
Discharge Facility (RRDF) and simply drive the vehicles onto 
the lighters. The lighters wait in queues near the ship for 
an open discharge station. When a discharge station becomes 
available the Ship Lighterage Control Point (SLCP) directs a 
lighter alongside. The cargo or rolling stock is then 
loaded aboard and the lighter casts off from the discharge 
point to transit to the shoreside queue. At the shoreside 
queue the lighter is directed by the Beach Lighterage Con¬ 
trol Point (BLCP) to the first available discharge point. 

The cargo is then discharged and proceeds to the marshaling 
area. The lighter then departs the discharge point and 
control is transferred from the BLCP to the appropriate SLCP 
which will tell the lighter where to pick up its next load. 
Several components exist to perform each of the tasks listed 
above. They can operate in many combinations to perform the 
basic LOTS functions. A description of the components 
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available and how they integrate into the overall system 
follows. 

B. ROLL ON/ROLL OFF SHIP 

There are many classes of Roll On/Roll Off ships, but 
they can be divided into two basic types for this analysis: 
self-sustaining and non-self-sustaining. The major differ¬ 
ence is that a self-sustaining ship has its own raitp for 
vehicle loading and discharge. In typical commercial 
operations a self-sustaining RO/RO would moor and lower its 
vehicle ramp directly onto the pier to commence the offload 
of vehicles. A ramp provided from port facilities would be 
married up to a non-self-sustaining ship. In the instream 
offload, an RRDF is assembled and moored alongside the ship, 
and in the case of the self-sustaining vessel, the ships 
ramp is then lowered onto the RRDF platform. In the case of 
a non-self-sustaining ship, a 120 foot offloading ramp is 
added to the RRDF. [Ref.i] 

The introduction of sea state and current can signifi¬ 
cantly affect the throughput capability of an offload. For 
an offload using an RRDF, operation is limited to sea state 
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two and no more than four knots of current. The discharge 
of vehicles can continue using LO/LO operations if the sea 
state exceeds the RRDF's parameters somewhat. But LO/LO 
operations are also limited in more challenging sea states 
depending on the equipment and the ability of the crew. In 
any case LO/LO operations are limited to sea states no 
higher than three. [Ref. 4] 

C. LZGBTBSAGB 

1. LCn 1466, 1610, and 2000 Class 

The LCU is a conventional displacement vessel capa¬ 
ble of transporting containers, breakbulk cargo, outsized 
cargo, vehicles and personnel from the ship to the shoreside 
discharge point. The 1466 and 1610 class are self- 
sustaining once deployed to the theater in the sense that 
they are fully equipped to support their crew once they are 
delivered to the area of operations. The LCU 2000 class is 
both self-deployable and self-sustaining. All three classes 
are therefore capable of extended missions with endurance 
based upon provisions and fuel capacity. All three LCU 
classes are equipped with twin screws and a stern anchor, so 
they can beach and retract under their own power. Cargo may 
also be discharged from LCU's at a floating causeway pier or 
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eUl elevated causeway pier (ELCAS). For discharge at the 
beach or to a floating causeway pier, rolling stock is 
driven or towed off over the bow ran^ of the LCU. If dis¬ 
charge is accoitiplished at an ELCAS the cargo is craned off. 
The characteristics of the three classes of LCU are listed 
in Table l. [Ref. i] 

TABLE 1. LCD CHARACTERISTICS 

1610 CLASS 

187 ST 

12 ktS 
11 ktS 

1200 nm 
® 6 kts 

3290 GALS 
36 GPH 

3’ 2" 

6 ' 5" 


2. Logistics Support Vessel (LSV) 

The Logistics Support Vessel is a large conventional 
displacement watercraft capable of transporting large 
amounts of cargo to almost any port in the world. Much like 


1466 CLASS 


CARGO CAPACITY 
PAYLOAD 


187 ST 


SPEED MAX 

FULL LOAD 



FUEL 


CAPACITY 
BURN RATE 


DRAFT (LOADED) 
FED 


8.0 kts 
6.5 kts 


1200 nm 
@ 6 kts 


3542 GALS 
34 GPH 



2000 CLASS 

188 

ST 

12 

kts 

10 

kts 

4500 

nm 

@11.5 

kts 

92000 

GALS 

41.6 

GPH 

4 
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a large LCJU, the LSV can carry loads such as 11 Ml tanks, 21 
M2 Infantry Fighting Vehicles, or 48 20-foot containers. 

The LSV's are both self-sustaining and self-deployable. 

LSV's are capable of beaching and retracting under their own 
power, thus, providing the most basic means of discharge. 
Cargo can also be discharged using a floating causeway pier 
or an BLCAS. As with an LCU, the rolling stock is driven or 
towed off in the first two cases, and craned off in the 
third. The characteristics of the LSV are listed in Table 
2. [Ref. 5] 


TABLE 2. LSV CBASACTBSZSTZCS 


CAROO CAPACITY 


PAYLOAD 

2000 ST 

SPEED MAX 

11.6 kts 

FULL LOAD 

10.0 kts 


6500 nm 

■■■ 

® 11 kts 

FUEL 


CAPACITY 

165,000 GALS 

BX7SH RATE 

146 GPH 

DRAFT (LOADED) 


FED 

6’ 

AFT 

6' 
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3. Causeway Ferry (ClfF) 

A causeway ferry (CWF) is assembled from Navy stan¬ 
dard 90 X 21 foot causeway sections. From one to three 
causeway section’s non-powered (CSNP) can be coupled with a 
causeway section powered (CSP) to form a ferry. The CSP 
contains two waterjet propulsion assemblies that are capable 
of propelling the loaded ferry from the ship to the shore- 
side discharge point. The CWF is capable of beaching and 
retracting under its own power as well as discharging at an 
ELCAS using a crane. The causeway ferry is capable of 
operating a full 10 hour shift without refueling. The 
causeway sections are easily loaded aboard several types of 
ships, and they are the basis for several major LOTS compo¬ 
nents such as the Floating Causeway Pier and the Side Load¬ 
able Warping Tug in addition to the CWF. Figure 2 shows the 
various configurations for a CWF. [Ref. 4] 

D. RO/RO DISCHARGE FACILITY (RRDF) 

The RRDF provides an interface between the sea going 
vessels and the lighters for the offload of vehicles. The 
RRDF itself is configured from six CSNP's in a three-wide by 
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two-long configuration to provide a platform for the offload 
ramp, which may be either the ship's ramp for a self- 
sustaining RO/RO, or part of the RRDF for a non-self- 
sustaining RO/RO. Vehicles can be driven directly off of 
the ships, onto the platform and onto either a causeway 
ferry, an LCU, or an LSV. The RRDF is moored directly to 
the ship and is helped maintaining its position by a Side 
Loadable Warping Tug. Assembly and mooring of the RRDF is 
limited to sea state O-i for a non-self-sustaining vessel 
and from 0-2 for a self-sustaining vessel. The RRDF can, 
however, be operated safely through sea state 2 in either 
case. [Ref. l] 



Figure 2: Causeway Ferry Configurations 






B. BBACH DISCBARGB FACILITIBS 

Several types of beach discharge methods may be employed 
in LOTS operations. The use of one system over another 
depends on the scenario at hand, the type of ship being 
offloaded, the lighterage being employed, and most impor¬ 
tantly, weather and surf conditions in the discharge area. 
For the offload of a RO/RO type vessel, using causeway fer¬ 
ries, LCU's, or LSV's, there are three basic beach discharge 
methods: bare beach operations, causeway pier operations, 
and elevated causeway pier operations. The factors that 
influence the choice of each are listed below. 

1. Bare Beach Operations 

Throughput during bare beach operations are 
primarily dependent on beach gradient and characteristics, 
weather, wave height, and the beach consistency. The type 
of cargo to be offloaded is also of concern since offloading 
is done in the surf zone. The possibility of vehicles 
stalling or being unable to gain traction is viable and must 
be considered, in the typical offload of RO/RO type cargo 
the vehicles would simply be driven or towed off of the 
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lighter onto the beach where they would then be directed to 
a staging area. [Ref. l] 

2. Floating Causeway Pier OP^i^Atlons 

A Floating Causeway Pier would normally be assembled 
in the amphibious assault phase of an operation and remain 
behind for the subsequent offload of the assault follow-on 
echelon until the more permanent ELCAS could be installed. 
Although RO/RO cargo is typically discharged directly to the 
beach, the floating causeway pier provides a means for of¬ 
floading a safe distance from the surf zone if it is re¬ 
quired. A floating causeway pier is composed of i CSNP 
(beach end configured), and l CSNP (sea end configured) with 
the required nximber of CSNP's in between to meet the desired 
depth at the sea end. Floating causeway piers are capable 
of operating in wave height of 4 feet and a lateral wind 
force of up to 40 knots with a 3 knot current. 

3. Elevated Causeway Operations 

The ELCAS allows containers, break bulk cargo and 
vehicles to be discharged without contending with the surf 
zone. ELCAS is a rapidly installable pier facility that can 
be extended up to 3000 feet beyond the surf zone to provide 
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mooring for any type of military lighter or commercial 
barge. The amount of roadway actually installed depends on 
what is required to meet the 12 foot depth requirement at 
the pierhead. The pierhead of the ELCAS is double width (72 
feet) and equipped with two air-bearing turn-tcibles and two 
180-ton cranes. The ELCAS would be installed with the ar¬ 
rival of the first container ship. RO/RO cargo is normally 
discharged on a bare beach, but can be discharged at the 
ELCAS if the vehicles are within the weight limits of the 
crane used on the ELCAS. Weight limits preclude the offload 
of such vehicles as tanks and large, heavily loaded trucks. 

This equipment and its characteristics discussed in the 
preceding sections must be faithfully modeled in the simu¬ 
lation to ensure that the output is reasonable and reliable. 
The following chapter is a thorough description of the RO/RO 
Offload model and how this was accomplished. 
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A. BACKGSOOMD 


We develop the RO/RO Offload simulation model to emalyze 
throughput for the RO/RO portion of cm instream LOTS opera¬ 
tion. The model was vrritten in MODSIM II, an Object- 
Oriented simulation lamguage. MODSIM II "is a general- 
purpose, modular, block-stxnactured high-level programming 
language which provides direct support for object-oriented 
programming and discrete-event simulation." [Ref. 6:p. 1] 

The prime elements of the RO/RO Offload model are created as 
objects. 

Objects in MODSIM are dynamically allocated data 
structures coupled with routines, called methods. The 
fields in the objects data structure define its state 
at any instant in time while its methods describe the 
actions which the object can perform. [Ref. 6:p. 103] 

As an example, an LCU 2000 class lighter is modeled as a 
lighter object, possessing the attributes that are unique to 
that class such as cargo capacity, speed, fuel capacity, emd 
fuel burn rate. The fuel on board the individual lighter 
decrements as time passes by a method within the lighter 
object called BuxnFuml. All of the objects within the 
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simulation interact to pass time in a realistic fashion so 
that statistical data may be gathered for later analysis. 

we model all of the components necessary to perform the 
RO/RO portion of an instream LOTS operation. The objects 
are generic enough so that any changes in the number and 
type of ships, beaches, or lighterage, can be modified in 
the model by simply changing the input files. The key ob¬ 
jects in the RO/RO Offload model are described in the sec¬ 
tions that follow. Figure 3 is a pictorial representation 
of the objects in the model which correspond to the follow¬ 
ing descriptions. 

B. ASSUMPTIONS 

Several assximptions were required in order to define and 
narrow the scope of the simulation model. The assumptions 
are; 

1. Weather is not a factor in the simulated offloads. 

In real world operations LOTS is limited in practice 
to sea states of two or below. 

2. One ship is offloaded at a time. 

3. All lighters are dedicated to the offload of one 
ship. 

4. There are no breakdowns in equipment. 


21 



5. 


Serials are prepared cdsoard the ship prior to the 
arrival of the lighter. In other words, the 
vehicles are standing by for onload when a lighter 
arrives. 

6. Lighters can perform operaterations simultaneously. 
More than one lighter can onload at the same time, 
several lighters may transit simultaneously, 
and so on. 

C. SHIPS 

As discussed in Chapter ll of this thesis, the oceango¬ 
ing vessels that transport vehicles to the offload area in a 
LOTS operation are RO/RO's. The object within the RO/RO 
Offload model that represents these vessels is the RoRoObj. 
The actual movement of the RO/RO to the Area of Operations 
(AOR) is not modeled in the simulation because the question 
to be answered is throughput in the offload phase, there¬ 
fore, simulation starts with the ships on station. The 
dominant effect the RO/RO has in this phase is the number of 
spots the vessel has available for onload to a particular 
type of lighter, and whether or not the RO/RO is self- 
sustaining. Additionally, some classes of ships are parti¬ 
tioned internally so that portions of the cargo can only be 
handled by a specific spot, which limits the number and type 
of lighters available to offload that cargo. These aspects 
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of a particular class of RO/RO can be modeled simply by 
changing the input files for each vessel desired in a par¬ 
ticular scenario. 

The RoRoObj possesses a method called MtakaLoad which 
actually constructs the serials based on the maxiimim 
capacity of a given lighter. The number and type of spots 
for a ship are input variables. For example, a RO/RO 
configured with an RRDF and one organic crane has one LO/LO 
spot, one CWF spot on the RRDF and one LCU spot on the RRDF. 
The LO/LO spot is usually on the opposite side of the vessel 
from the RRDF, and can accept both CWF's and LCD's. As an 
example of a partitioned load, the aft portion of the Algol 
(SL-7) class Vehicle Cargo Ships can only be offloaded by 
LO/LO operations and can contain up to 60 vehicles. The 
MakaLoad method keeps track of these 60 vehicles and ensures 
that they decrement appropriately when onload of a lighter 
is conducted at the LO/LO spot. 
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Figure 3t The Object-Oriented Approach to LOTS 
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O. LIOBmAOl COMTKOL POIHTS 


The Lighterage Control Points serve as the interface 
between the queue in which the lighters wait for an avail¬ 
able spot at a particular location, and that location. For 
example, the Ship Lighterage Control Point (SLCP) interfaces 
between the lighters waiting for a spot at the ship, and the 
ship itself. There are three Lighterage Control Points 
modeled in the RO/RO Offload model. In addition to the 
SLCPObj, the BLCPObj interfaces with the Beach objects, the 
PuelCPObj interfaces with the refueling area objects, and, 
each interfaces with it's respective queue. Each of the 
modules in which the Lighterage Control Point objects are 
defined also has the definition for the associated queue 
object, such as the AwaitingShipQueueObj. The queue objects 
actually hold the lighter objects until a spot opens up at 
the associated location. 

B. BBACH AREAS 

Typically the offload of rolling stock in the beach area 
consists of starting the vehicles up and driving them away. 
The one exception to this rule is when an ELCAS is in use 
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and vehicles are lifted from the lighters. The RO/RO Of¬ 
fload model provides for three beach types: bare beach, 
floating causeway pier, and ELCAS. Each instance of a Bea- 
chObj in the model, however, only varies in the number of 
spots available for lighter offload. The spots are not 
unique to a particular type of lighter, but if this attrib¬ 
ute were desired it would entail only a minor modification 
to the source code. The BeschObj has within it a method 
which keeps track of the time that the spots lay idle for 
later analysis. 

P. REFUEL AREA 

The refueling area in a LOTS operation is typically a 
shore site equipped to refuel the lighters. Each of the 
lighters is normally capable of operating for a minimum of a 
ten hour shift without refueling, but the time to transit to 
the refueling area and to refuel can add a significant 
amount of variance when looking at throughput. 

The refueling area, modeled as a RefuelAreaGbj, has two 
attributes which affect simulation time; the number of spots 
available for refueling and the pump rate. Both of these 
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attributes can be modified in the input files. One other 


factor affecting the refueling operation is the distance of 
the refueling area with respect to both the ship and the 
beach. These are also input parameters. 

G. LIGHTERS 

The LigbterObj is the key object in the RO/RO Offload 
model in that it alone contains the methods which control 
the passage of simulation time for each of the events mod¬ 
eled. Each instance of a lighter object has its unique at¬ 
tributes such as speed and cargo capacity that will come 
into play when the time required for a given event to pass 
is calculated. 

The basic lighter cycle consists of eight events, each 
of which is associated with a method in the LighterObj to 
control the passage of simulation time. During each of 
these events, as well as the time spent in the queues, the 
lighter burns fuel. The eight events in the basic lighter 
cycle are described below. A pictorial description using 
object-oriented simulation pictures (OOS-Pics) [Ref. 7] can 
be found in Appendix A. 
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1. Approach and Moor to Ship 

At the beginning of simulation all lighters are in 
standby in the AwitingShipQueue. When a ship has a free 
spot, it asks the SLCPObJ to remove a lighter requiring the 
appropriate spot type from the queue. The SLCPObj then 
te!’. Is the lighter to Approach And Moor, thus initializing 
the lighter cycle. The approach and moor time is calcu¬ 
lated, the simulation time is allowed to pass, and fuel is 
burned for that period of time. 

2. Onload 

After the lighter completes the approach and moor 
event, it asks the ship to 3takeLoAd, which causes the *o- 
SoObj to create a load and decrement the total onboard the 
ship appropriately. The ship next tells the lighter to on¬ 
load. The LighterObj calculates the onload time, passes the 
correct amount of simulation time, burns fuel, and tells 
itself, the lighter, to cast off and clear the ship. 

3. Cast and Clear the Ship 

The cast and clear event is similar to the other two 
described above in that the cast and clear time is calcu¬ 
lated and allowed to pass, and fuel is burned. After the 
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lighter completes the cast and clear event it transits to 
the beach area queue. The ship is next asked to clear the 
spot just used. This frees it for use by another lighter and 
starts that lighter's cycle. 

4. Transit to the Beach Area Queue 

As a lighter transits to the beach area it asks the 
BLCPObj to get a beach spot for offloading. The BLCPObj in 
turn asks each of the beach objects in the scenario if there 
are any spots free. If there is a free spot, the lighter is 
told to approach and moor to the appropriate BmmehObj. If 
there are no spots available the lighter is added to the 
AwaitingBeachQuaue . 

The TranaitTo method in the model calculates the 
transit time based only on speed and distance. This is 
different from the other events in the cycle where the event 
times are drawn from random number streams. 

5. Approach and Moor to the Beach 

Approach and moor at the beach is identical to that 
on the ship with the exception that the lighters spot re¬ 
quirement is not checked, any lighter type can moor to any 
beach type. If a spot becomes free at the beach and a 
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lighter does not happen to be in transit and requesting a 
spot at that exact moment, the beach asks the BLCPCbj to 
remove a lighter from the queue. The BLCPObJ then tells the 
newly removed lighter to approach and moor. 

€. Offload 

Upon corralet ion of the approach and moor event the 
lighter is told to offload. Offload time is calculated, 
simulation time is allowed to pass, and fuel is burned. 

After completion of the offload, the fuel status of the 
lighter is checked. If the lighter is at or below the spe¬ 
cified minimum fuel percentage it is told to cast and clear 
the beach and transit to the refueling area. If the fuel 
status is above the minimum the lighter is told to cast and 
clear the beach and transit to the ship area. These two 
events are the last two of the eight in the basic lighter 
cycle. They are essentially the same as the like named 
events above, so a detailed description is not required. 

7. Refueling 

The basic sequence of events is modified slightly if 
a lighter requires fuel. As mentioned above, after a 
lighter completes its offload, a check is conducted to 
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determine if the lighter is at or below its minimum fuel 
percentage. If the lighter is low on fuel it casts and 
clears the beach and transits to the refueling area. On the 
way to the refueling area the lighter checks in with the 
FuelCPQbj, which asks the RefuelAreaObj to check for empty 
spots. If there is a spot available the lighter is told to 
approach and moor. If not, the lighter is added to the 
FuelAreaQueue and waits for a spot to open up. After a 
lighter completes the approach and moor event it is told to 
refuel. Refuel time is calculated based on the fuel re¬ 
quired to fill the lighter to capacity and the pump rate of 
the RefuelAreaObj. When refueling is complete, the lighter 
is told to cast and clear and transit to the ship area. The 
spot in the RefuelAreaObj is made free and the FuelCPObj is 
asked to remove the next lighter from the queue. 

After the lighter arrives back in the ship area 
queue, the cycle starts anew with the lighter waiting for a 
spot to become free on the ship. Each instance of a Ligh- 
terObj conducts these events until the offload of every 
RO/RO in the simulation is complete. 
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H. MODBL BZBCDTION 


There are four phases in the execution of the RO/RO Of¬ 
fload simulation. A brief description of these phases and 
the objects involved in their execution follows. 

1. Input 

The information required to create a desired 
scenario is stored in eight ASCII files. These files are 
easy to create and edit. The ListMaeterObj has the task of 
creating the necessary objects to read these files and to 
call the methods that actually read the data. The informa¬ 
tion for each object to be built is stored in a record, and 
then added to a QueueListObj. Exan^les of program input 
files can be found in Appendix D. 

2. Object Building 

The ObjectSullderObj creates each instance of the 
objects required for the scenario. It removes the records 
from the QueueList objects mentioned above, and fires a 
method in each object that fills that objects fields with 
the information from the record. The end result of this 
phase is that all of the objects required to run the desired 
scenario are built and standing by for replication. All of 
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the lighter objects will have been added to the Awaiting- 
ShipQuaua and are standing by for the RoRoObj to request the 
first lighter to fill a vacant spot. 

3. Replication 

Replication is controlled by the replication memager 
object or RapMhgrObj. A method in this object asks the user 
how many replications are desired and if seeds for the ran¬ 
dom number generators are to be input by the user. At the 
end of each replication the desired statistics are confuted 
and all of the lighters in the scenario are added to the 
AwaitingShipQueue in preparation for the next replication. 

4. Output 

Output is created in the Statistics object or Stat- 
aObj. A method in this object is called after the last load 
from the ship has been transferred to the beach, and all of 
the lighters are returned to the AwaitingSblpQuaue. This 
method calculates the desired statistics and outputs them to 
four ASCII files. Appendix E contains exait^les of program 
output files. 
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IV. JUnLTTZCAL PBOCSDOSBS 


A. BACKGROmn) 

In order to ensure that the output from the simulation 
model is reliable cuid correct, two steps must be accom- 
pliE ed. First, the model must be verified to ensure that 
it is mathematically correct. This essentially involves the 
checking and double checking of euiy equations, or input 
distributions used to determine event times in the model. 

The second step is validation of the model which, determines 
if the output is realistic and if the output is in fact what 
is required. In other words, does the simulation model 
provide reliable output data of the desired parameters. 

This two step process is the first phase in the analysis of 
the RO/RO Offload model. 

The second phase in the analysis is to demonstrate the 
possible applications of the model. This is done by 
selecting a set of scenarios, running them through the 
model, and analyzing the output. 

The following sections document the verification, val¬ 
idation, and demonstration of the RO/RO Offload simulation 
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model subject to the constraining assumptions listed in 
Chapter III. 

B. LZOBTBR CYCLB BVBR TUIBS 

In determining the times for each of the lighter cycle 
events the primary objective is to obtain the most current 
data available. Several sources were available that pro¬ 
vided mean times and distributions for each of the events in 
the lighter cycle, but no one set of data provided both the 
accuracy and latitude that was required for the model. The 
final set used in the model is a mixed set derived from all 
of the sources available, coupled with some ccmimon sense 
decisions, to provide the best event times for this simu¬ 
lation model. 

There are two capabilities in the RO/RO Offload model 
that required some flexibility in determining the event time 
distributions. The first is the capability to differentiate 
between self-sustaining (SSR) and non-self-sustaining (NSSR) 
RO/RO's. The second feature is that ships can be given the 
capability of LO/LO operations. Two additional area's that 
required flexibility are trauisit times, and refueling times. 
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Because the model allows the user to input the distances 


between the ships, beaches, euid refueling area's, the tran¬ 
sit times between area's are calculated based solely on 
speed euid distance. This allows the user to place these 
area's at any distance relative to each other. Refueling 
times are also deterministic, based on the amount of fuel to 
be puiqped, and the pun^ rate. The following table lists the 
times, distributions and source for each event. 


TABLB 3. LIGBTKR CYCLB BVBHT ZHPUT DATA 


LIQHTER 

CYCLE 


CADSEHAY 

FERRY 


LCU 

EVENT 


PROB DIST 

MBAN/RNO 

STD 

PROB DIST 

MEAN/RNQ 

STD 

APPROACS k HOOR 

SSR 

NORMAL 

10.5 

(3) 

3.2 

NORMAL 

14.3 

(3) 

2.2 

nssR 

NORMAL 

Bi 

(2) 

3.2 

NORMAL 

14.3 

(3) 

2.2 

OPERATIONAL DELAY 

1 

NORMAL 

2 

(1) 

0.7 

NORMAL 

2 

(1) 

0.7 

ONLOAD SHIP 

SSR 

NORMAL 

16 

(3) 

3.9 




3.9 


NSSR 

NORMAL 

25 

(2) 

3.9 

NCHOIAL 

18 

(2) 

3.9 

OPERATIONAL DELAY 

2 

LOOnORMAL 

B 

(1) 

1.2 

NORMAL 

1^1 

(1) 

0.3 

CAST k CLEAR SHIP 

SSR 

NORMAL 

5 

(3) 

1.3 

UNIFORM 

2-2.5 

(3) 

NA 


NSSR 

NORMAL 

■ 


■B 

UNIFORM 

4-6.5 

(2) 

NA 

TRANSIT TO BEACH 

DETERMINISTIC 

DGTERMINISTIC 

APPROACH k MOOR 

NORMAL 

17 

<1) 

3.4 

NORMAL 

11 

(1) 

4.29 

OPERATIONAL DELAY 

3 

LOCNORMAL 

1 

<1) 

0.9 

UNIFORM 

IB 

(1) 

NA 

OFFLOAD AT BEACH 

NORMAL 

10 

(1) 

3.4 

NORMAL 

3 

(1) 

0.8 

OPERATIONAL DELAY 

4 

UNIFORM 

0-1. 

5 (1) 

NA 

NORMAL 


(1) 

0.3 

CAST k CLEAR BEACH 

NORMAL 

9.9 

(1) 

1.8 

UNIFORM 

1.8-3 

(1) 

NA 

TRANSIT TO SHIP 

DETERMINISTIC 

DETERMINISTIC 


HUXUi a. All valuea are in minutee. 

b. Onload and Offload tlmea are in minutee per vehicle. 

■OmCBli (1) Sef. 8: p49. Wetei All STD’a and distrifautione cone from this reference. 


(2) Ref. 8: p34. Wetei Allowe differentiation between SSR and NSSR ahipa. 

(3) Ref. 9: pe-18 Wetei Hoat current data available for theae aventa. 
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TABLS 4. LZOBTSR CYCLE BVBIT ZMPDT DATA 


LIOBTER 

CYCLE 

EVENT 

CAUSEWAY FERRY 

LCU 

PROS DIST 

MEAN/RNO 

_ 

STD 

PROS DIST 


Majm 

TRANSIT TO REFUEL AREA 

DETERMINISTIC 

DETERMINISTIC 

APPROACH & MOOR 

NORMAL 

17 (1) 


NORMAL 

11 (1) 

4.39 

OPERATI(»IAL DELAY 3 

LOOHORMAL 

BHBB 

0.9 

UNIFORM 

Bm 

NA 

REFUEL 

DETERMINISTIC 

DETERMINISTIC | 

CAST & CLEAR REFUEL AREA 

NORMAL 

ama 

1.8 

UNIFORM 

1.8-3 (1) 

NA 1 

TRANSIT TO SHIP 

DETERMINISTIC 

ISTERMINISTIC || 

nOTUt a. All values are in minutes. 

b. Refuel Area is located at a beach or shore site, therefore it is treated as a 
beach for simulation event times. 

MOmCMMt (1) Ref. 8: p49. Mebei All STD's and distributions come from this reference. 


Two additional notes on event times that are not re¬ 
flected in the tables. The first is that an LSV is treated 
as an LCU with regard to event times. Since an LSV moors to 
the RRDF at the LCU spot, and is similar in most ways to an 
LCU, this is not regarded as a risky assumption. This as¬ 
sumption was further required because no data was available 
for the LSV event times. The second thing to note is the 
offload time at the LO/LO spot if the RO/RO being simulated 
is so configured. The event time for a LO/LO offload is 
normally distributed with a mean of 10.25 minutes per ve¬ 
hicle and a standard deviation of 5.75 minutes per vehicle. 
These values are a conposite based on data obtained in CRM 
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91-3, [Ref. 10], and data from Joint Pub 4-01.6, [Ref. l]. 


The standard deviation for the LO/LO offload time as well as 
three other event times is actually too high for the normal 
or lognormal distributions. In a simulation run, a small 
percentage of the numbers drawn frcxn the randcmi number 
streams in these cases would be negative. This would cause 
a fatal error in the program, thus, these numbers are con¬ 
verted to positives. As a result, the distributions 
actually used in the model are truncated and slightly skewed 
to the right of those described. 

C. AHALYSIS 

The analysis of model output is divided into two parts. 
The stated goal of this thesis is to provide a valid simu¬ 
lation model from which reliable estimates of throughput can 
be derived for the instream offload of a RO/RO. The first 
objective is to validate the simulation model, thus ensuring 
that it does in fact provide reliable throughput estimates. 
Step two is to demonstrate the use of the model using four 
scenarios euid evaluating the output. 
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1. Validation Scanario 


Validation of the RO/RO Offload model was acccxn- 
plished by teUclng a real world offload scenario for which 
all of the parameters required by the model were known. 

These parameters were loaded into the model via the input 
files. The RO/RO Offload model was then run for 300 repli¬ 
cations and the output was ccxiqpared with the existing 
empirical data. The operation selected for validation was 
actually conducted during Ocean Venture '93. The following 
tables list the input values for the model. For examples of 
input files in the correct format, see Appendix D. 


TABLE 5. VALIDATION SCBKARIO IHPDT DATA 


1 SHIP DATA 

REFDEL AREA DATA 

NAME 

BELLATRIX 

NAME 

FUEL DEPOT 

TYPE 

8SR 

t OF SPOTS 

2 

DIST TO BCH 

6 nm 

DIST TO SHIP 

6 nm 

« OP SPOTS 

3 

FDHP RATE 

3500 ora 

SPOT TYPE 

LCU, CWF, LOLO 


« VHCLS LOLO 

60 

« VHCLS RKOF 

0 

« VHCLS ANY SPOT 

834 

NORSt a. # VHCLS LOLO indicates the number of vehicles in the 
load that can be lifted frcni the LOLO spot only. 

The Bellatrix, an SL-7 class, has a partitioned load 
and 60 vehicles must be offloaded by LOLO. 
b. Data provided by Joint Test Directorate [Ref. 11]. 
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TABLI 6. VAUDATXOH SCBUBIO ZMFDT DATA 


1 LICBTEB DATA 

LIORTER ID 

ALFA - ECHO 

FOXTROT - OOLF 

HOTEL 

INDIA - LIMA 

TYPE 

LCU 3000 

LCU 1610 

LSV 

3X1 CNF 

i IN SCENARIO 

5 

3 

1 

4 

SPOT REQUIRED 

LCU 

LCD 

LCU 

CNF 

MAX SPEED 

13 kta 

13 kts 

11.6 kts 

6 kts 

FULL LOAD SPEED 

11 kts 

11 kts 

10 kts 

3 kts 

VBCLE CAPACITY 

11 

4 

35 

16 

FUEL CAPACITY 

93000.0 OAL 

3390.0 OAL 

165000.0 OAL 

375.0 OAL 

FUEL BURN RATE 

41.6 OFH 

36.0 QPH 

145.6 OPH 

30.8 OFH 

MIN FUEL % 

0.35 

0.35 

0.35 

0.35 

MUTISi a. Fuel capacities, Burn rates, and vehicle capacities for the 

LCD 3000, LSV, and 3x1 CNF provided by Joint Test 

Directorate [Ref. 11]. 


TABLB 7. VALZDATICnr SCBHAKIO ZHPDT DATA 


1 BEACH DATA 

NAME 

SOUTH 

ARMY 

NAVY 

ADMIN 

TYPE 

BARE BEACH 

CAUSEHAY PIER 

CAUSEHAY PIER 

0903 

« OF SPOTS 

2 

2 

1 

1 

DIST TO SHIP 

6 nm 

6 nm 

6 nm 

6 nm 

DIST TO FUEL 

_ 

6 ZXBl 

6 zun 

6 nm 

6 nm 

MOVESi a. Data provided by Joint Test Directorate [Ref. 11]. 


2. Validation Analysis 

The approach employed in this thesis for model val 
idation is the basic inspection approach [Ref. 12: p. 316] 
This procedure involves the con 5 )arison of one or more sta¬ 
tistics from the model with those from real world 
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observations. For this model the total offload time for the 


ship in the given scenario will serve as the statistic for 
conparison. Although the RO/RO Offload model collects data 
for the idle time at each of the ship and beach spots in the 
scenario, as well as the time spent in the Aw*itingSbipQueue 
and AwmltingBeaebQumue, there currently is no ertpirical data 
with which to compare it. 

The RO/RO Offload model is a terminating simulation 
[Ref. 12:p. 529]. That is to say that each replication of 
the simulation runs until a terminating event occurs, name¬ 
ly, the complete offload of the ship in the given scenario. 
Since different runs use an independent sequence of random 
numbers for the individual event times, this implies that 
the output realizations from the different runs are 

independent as well. Specifically, total offload time for 
the ship in our scenario. Calculating the mean X= K{X) , 

where X is the independent total offload time for a single 
simulation replication, serves as a reliable point estimate 
for the comparison. If Xj, X 3 ,...,X„ are the independent, 

realizations for offload times of n replications, then the 
mean is simply: A'= (E,'Li A',)/« 
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As noted previously, the validation run of the model 
consisted of 300 replications. The output is in ASCII for¬ 
mat, examples of which can be found in Appendix E. The 
output was loaded into SPSS [Ref. 13], and some basic 
graphical analysis was conducted. Output times frc»i the 
model are expressed in minutes, and the real world observa¬ 
tions are generally expressed in hours or days, therefore, 
some sinple conversion is required. The results for the 
validation are presented below in Figure 4. 

i JLOTCIIl' I 


Beiiatrix Offload Soenarlo 

12 Lighters, 6nm from Beach 





|j Offload Time in Mnutes | 

Figure 4: Histogram of Beiiatrix Offload Scenario 
Ccmpared to Normal Distribution. 

We expect our offload time data to be slightly 
skewed to the right since offload time is bounded by zero on 
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the left. This is confirmed by Figure 4. Nevertheless, we 
rely on the central limit theorem and the robustness of 
procedures based on the t-distribution to build a 99% 
confidence interval for the mean offload time using the 300 
simulated observations. 

.V±ra2(-v/7w) = 4703.2 ± 2.576(407.22/73^) = 14642.63,4763.761 

This interval expressed in hours is [77.37, 79.39]. 
The empirical mean, 79.2, clearly falls within this confi¬ 
dence interval which lends credence to our claim that the 
RoRo Offload simulation model provides relieU61e estimates 
for throughput. 

3. Demonstration Scenarios 

In order to fully exercise the simulation model, a 
design space consisting of four scenarios was selected. 
There are many factors which could be varied to determine 
the effect on total offload time, but the two most obvious 
variables are the nximber of lighters, and the distance of 
the ship from the beach. The objective is to stress the 
model, thus, the values for these variables could be 
considered extreme cases that are not likely to be 
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replicated in the real world. The four scenarios are, a 
large number of lighters at both long and short distances, 
and a small number of lighters at both long and short dis¬ 
tances. In choosing the number of lighters, some 
experimental runs were conducted to ensure that the queues 
in the model were behaving as desired. Aside frcrni the num¬ 
ber of lighters, and the distance between ship and beach, 
all other variables were held constant. The data used in 
the validation scenario listed in tables 5, 6, and 7 were 
used with the exception of distances, and lighters. The 
number of beaches was reduced to two, the south beach and 
the admin pier. The number of beaches was reduced to help 
obtain the desired behavior in the queues. Figure 5 depict 
the design space for the demonstration. 
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4. Daaonstratlon Results 

Graphical techniques were en^loyed to analyze the 
data from the four demonstration scenarios. The model was 
run for n = 900 replications for each case. Figure 6 de¬ 
picts the results from the four runs. 


Eiellatrix Offload 


Four Demonstration Soenarios 



Figure 6: Boxplots of Results from Demonstration Scenarios 

Each of the four boxplots above depicts the results 
from one of the four scenarios. The first observation to be 
made is that the two 16 lighter scenarios are relatively 
close in their final values. In fact, there is only 
approximately 9 hours difference between these two mean of¬ 
fload times. This difference is likely due to the 
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difference in distance between the two scenarios. We let JT, 


and Xj be the observed offload times for a replication of 
the 16-6 and 16-1 scenarios respectively, euid then ram a 
paired t-test to compare the two scenarios where: 

Ho A',.! -A ',.2 = D, = 0, and 


where Z)= D,/w and is the standard deviation of the dif¬ 
ferences of paired observations. The results of the paired 
t-test follow: 


TABLE 8. PAIRED T-TEST FOR 
16-6 AND 16-1 SCENARIOS 


Mean 

4,330.96 

3,791.11 

Standard Deviation 

429.91 

503.49 

SE of Mean 

14.33 

16.78 

Number of Paira 

900 


Correlation 

0.02 

2-tail Significance 

0.54 


Pslvad 01Sf«rwa*a 


Mean 


Standard Deviation 


SE of Mean 


991: Confidence 


t-value 


df 


2-tall Significance 


539.75 


655.32 


21.94 



( 493.351 596.141 ) 


24.71 


999 









































A two-tail significance of zero for the paired dif¬ 
ferences indicates that the probability of observing a dif¬ 
ference this large or larger when the two means are the same 
is essentially zero. Additionally, zero does not fall 
within the 99% confidence interval for the mean of the 
paired differences. The conclusion is that must be re¬ 
jected and the difference between the two means is statis¬ 
tically significant. Although the difference is 
statistically significant, it would be deemed operationally 
insignificant in the course of an entire operation. This 
difference is relatively small due to the buffering effect 
of the queues. The times spent in queue by lighter type and 
the idle spot times are listed below. 


TABLE 9. 


KEAN TIME SPEET IN QUEUE BY LZGHTEB TYPE 


Scenario 

Awaiting Ship Queue Data 

Awaiting Beach Queue Data | 

LCU Ship 

LSV Ship 

CWF Ship 

LCU Beach 

LSV Beach 

CitF Beach 

16-6 

1,066.5 

€91.9 

725.3 

144.3 

69.5 

39.5 

16-1 

1,198.3 

761.3 

840.4 

418.9 

187.7 

166.6 

5-6 

584.9 

0 

0 

0.4 

0 

0 

5-1 

1,047.7 

0 

0 

3.6 

0 

_ 

_ ^ 

|llOR8s a. All times in minutes 
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TABLE 10. 


MEAN TIME SHIP AMD BEACH SPOTS NEBS IDLE 


Scenario 

ship Idle Spot Tine 

Beach Idle Spot Time 

LCO Spot 

CNF Spot 

LoLo Spot 

South Beach 

Admin Pier 

16-6 

1,788.8 

1,508.6 

1,733.6 

1,663.33 

2,092.1 

16-1 

1,615.9 

1,210.2 

1,666.1 

1,198.6 

1,518.8 

5-6 

2,766.7 

6,239.7 

2,883.6 

6,051.6 

6,950.6 

5-1 

1,726.6 

3,679.2 

1,782.2 

6,076.1 

5,207.6 

|llDaSi a. All tiraea in minutes || 


While the interpretation of the total offload time 
is straightforward, care must be taken when interpreting 
these times. First, note that the mean time spent in queue 
is bounded by the total offload time, and should be normal¬ 
ized to the percent of the total offload time spent in 
queue. Second, note that the idle times have some non-zero 
lower bound that is determined by the number of loads car¬ 
ried by each lighter type. 

with so many lighters in the 16 lighter scenarios, 
the queues rarely are without the desired lighter type for a 
newly available spot, thus, these offload cycles have a 
minimum idle time at both the ship and at the beach. Like¬ 
wise, the time spent in queue is relatively high because of 
the large number of lighters. When the distance is de¬ 
creased from six to one mile, the time spent in queue 
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Increases and the idle spot times decrease, as would be 
expected. 

In contrast, the two scenarios with five lighters 
each had little or no buffering from the queues, thus, the 
idle spot times increase significantly. The mix of lighters 
must be explained to understand fully what is happening in 
these scenarios. The lighter mix for the five lighter sce¬ 
narios consists of four LCU's, and one CWF. Since there is 
no LSV in the scenario, LSV queue times are zero. Because 
there is only one CWF in the scenario, the time spent in 
queue for the CWF is zero, and it's associated idle spot 
time is high. The CWF is essentially running back and forth 
directly between ship and beach. For the LCU's, they are 
spending more time in the queues because there are more of 
them in the mix and they are con^eting for the same spots. 
This undoubtedly forces some into the queue. The queue 
times are significantly lower than in the 16 lighter 
scenarios, and the idle times are also higher, as would be 
expected. Again, as the distance decreases, the queue times 
increase and the idle times decrease. 
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What can be concluded about the five lighter 


scenarios is that scarcity of resources is driving up the 
total offload time. The increase in distance form one to 
six miles makes the lighter resources even more scarce, 
thus, a higher offload time. 

It must be noted that without en^irical data to 
compare with, it is difficult to say what the queue times 
and the idle times should be. There is a significant amount 
of variance that results from a mix of lighters with 
different load capacities. What has been found in empirical 
observations is that using a mix of lighters with similar 
capacities smoothes the process. The model results support 
this finding. In the five lighter scenario we used four 
LCU's. If an LSV with a 25 vehicle capacity is substituted 
for on LCU in the five lighter mix, the awaiting ship queue 
time can be driven up even further. With fewer lighters in 
a scenario the effect is more pronounced. 

What has been demonstrated here is that the RO/RO 
Offload model can be useful in determining throughput time 
for a given scenario. In real world operations the majority 
of variables will be fixed. The decision maker will have a 
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smaller set of variables that cam be adjusted to improve the 
performance in an offload. For exanple, the distamce of the 
ship frcrni the beach is probably a fimction of anchorage 
locations, thus limiting the options. For a given distance 
amd ship type, the LOTS planner can use the RO/RO Offload 
simulation model to help find a better mix of lighters to 
work within the fixed parameters. 
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V. 00«C3^ZOH8 


A. COnCLUSZOHS 

The purpose of this thesis was to provide a valid model 
with which reliable estimates of RO/RO throughput could be 
obtained. The RO/RO Offload model is valid for this purpose 
within the scope of the limiting assun^tions. The model can 
be used effectively not only to estimate throughput, but to 
possibly inprove throughput rates by providing LOTS plcuiners 
the opportiinity to model an offload and adjust the variables 
long before the real world equipment is on station. 

The four demonstration scenarios serve purely as an il¬ 
lustration of how the model may be used. Planners are cer¬ 
tainly not limited to altering only these varieUQles. In 
theory, the model could have been run hundreds of times, 
evaluating every possible combination of varicd>les. The run 
time for the model is so short, however, that it may be used 
on demand to provide planning factors tailored to a specific 
scenario. 
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B. BBCQMBNDATZOHS 

The RO/RO Offload model also has the ed)illty to collect 
data on the mean time spent in each of the queues by lighter 
type as well as the idle time for ship and beach spots. It 
is hoped that by collecting and analyzing this data that 
some insight could be gained as to how best to alter the 
number and mix of lighters for a scenario. Empirical data 
was not availcUale to validate these features, however, they 
were demonstrated in this thesis. We recommend that in fu¬ 
ture operations, data be collected so that the model can be 
further validated. 

Regarding future work, there are several features that 
could be added to either add fidelity to the model or make 
it more user friendly. They are: 

1. Add graphics to the model. 

2. Modify the model to allow the offload of container 
ships. The modular structure of object-oriented 
programming lends itself to these seemingly broad 
modifications. The objects in the RO/RO Offload 
model are generic enough to make this a relatively 
simple task. 

3. Incorporate weather and sea state into the model. 

4. Incorporate equipment failures into the model. 
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APPBIIDIX A LIST OF ACROmfHS 

BLCP Beach Lighterage Control Point 

CSNP Causeway Section Non-Powered 

CSP Causeway Section Powered 

CWF Causeway Ferry 

DOD Department of Defense 

ELCAS Elevated Causeway Pier 

GPH Gallons per Hour 

JLOTS Joint Logistics Over The Shore 

LO/LO Lift On/Lift Off 

LOTS Logistics Over The Shore 

LCU Type of Lighter, LCU 1466, LCU 1610, LCU 2000 

LSV Logistics Support Vessel 

NSSR Non-Self-Sustaining RO/RO 

OPDS Offshore Petroleum Discharge System 

RO/RO Roll On/Roll Off 

RRDF Roll On/Roll Off Discharge Facility 

SLCP Ship Lighterage Control Point 

SSR Self-Sustaining RO/RO 

T-ACS Crane Ship 
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APPENDIX B OBJECT-ORIENTED 8IMDLATION PICTURES 


The following pages dociament the Transition action dia¬ 
grams for the RO/RO Offload model. Transition action 
diagrams are a combination of old style flow charts, coupled 
with Object-Oriented simulation pictures, or OOS-Pics. To¬ 
gether they show the flow of control in the Lighter Cycle 
operation of the RO/RO Offload model, including the 
interactions between objects, and their methods and fields. 
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Figure 7: OOS-Pics Page l. 
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Figure 9: OOS-Pics Page 3. 
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Figure 12: OOS-Pics Page 6. 
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Figure 14: OOS-Pics Page 8 
















































































Figure 16: OOS-Pics Page 10. 
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Figure 18: OOS-Pics Page 12. 
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Figure 19: OOS-Pics Page 13. 



























Figure 20: OOS-Pics Page 14. 
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Figure 21: OOS-Pics Page 15. 
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Figure 22: OOS-Pics Page 16. 
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Figure 27: OOS-Pics Page 21. 
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APPENDIX C RO/RO OFFLOAD MODEL SOURCE CODE 


MAIN MODULE RoRoOff; 

{ 


Module Name: RoRoOff Modified: 26 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: JLOTS RoRo offload model. Simulates the 

instream offload of rolling stock from self-sustaining and 
non-self- sustaining Roll On / Roll Off ships equiped for 
operations using a RoRo discharge facility (RRDF) and/or 
Lift On / Lift Off (LoLo) operations. By means of input 
files the user is able to change the scenario by altering 
the number and type of Beach landing areas, the number and 
type of lighterage to be used, the type of ship, and the 
characteristics of the refueling facility. 


FROM RepMngr IMPORT RepManager; 
FROM ListAll IMPORT ListMaster; 
FROM Builder IMPORT ObjectBuilder; 

BEGIN 

NEW(RepManager); 

NEW(ListMaster) ; 

ASK ListMaster TO ReadAllData; 

NEW(ObjectBuilder); 

ASK ObjectBuilder TO BuildObjects; 

ASK RepManager TO ChangeRunParms; 
ASK RepManager TO Replicate; 

END MODULE. 
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DEFINITION MODULE ListAll; 


{ 


Module Name: ListAll Modified: 26 Jul 93 

Author: M. Bailey Modified By: J. S. Noel 

Prof. NPG Lt. USN 

DESCRIPTION: Defines the ListMasterObj which NEWs the 
appropriate objects and fires the methods to read in the 
data files so that ship, lighter, and beach objects can be 
built. 

} 


TYPE 


ListMasterObj = OBJECT 

ASK METHOD ReadAllData; 


ASK METHOD 
ASK METHOD 
ASK METHOD 
ASK METHOD 


ReadShipList; 
ReadLighterList; 
ReadBeachList; 
ReadFuelAreaList; 


END OBJECT; 


VAR 


ListMaster : ListMasterObj; 
END MODULE. 
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implementation module Li St All; 


{ 


Module Name: ListAll Last Modified: 26 Jul 93 

Author: M. Bailey Modified By: J. S. Noel 

Prof. NPG Lt. USN 


DESCRIPTION: Implements the ListMasterObj which news the 

appropriate objects and fires the methods to read in the 
data files so that ship, lighter, and beach objects can be 


built. 


FROM 

Builder 

IMPORT 

FROM 

ShpList 

IMPORT 

FROM 

LtList 

IMPORT 

FROM 

BchList 

IMPORT 

FROM 

RFAList 

IMPORT 

FROM 

ShpName 

IMPORT 

FROM 

LtName 

IMPORT 

FROM 

BchName 

IMPORT 

FROM 

RFAName 

IMPORT 

FROM 

WriteLine 

IMPORT 


OBJECT ListMasterObj; 


} 

ShipBuilder, BeachBuilder, 
LighterBuilder, 

FuelAreaBuilder; 

MasterShipTypeList; 
MasterLighterTypeList; 
MasterBeachTypeList; 

MasterRefuelTypeList; 
MasterShipNameList, ShipNameRecType; 
MasterLighterNameList, 
LighterNameRecType; 

MasterBeachNameList, BeachNameRecType; 
MasterRefuelNameList, 

RefuelNameRecType; 

WriteLine; 


{ } 

ASK METHOD ReadAllData; 

{ } 

BEGIN 

OUTPUT("Reading ship data "); 

ASK SELF TO ReadShipList; 

OUTPUT("Reading Lighter data "); 


83 






ASK SELF TO ReadLighterList; 

OUTPUT("Reading Beach data "); 

ASK SELF TO ReadBeachList; 

OUTPUT{"Reading RefuelArea data "); 

ASK SELF TO ReadFuelAreaList; 

END METHOD; 

} 
} 

VAR 

Rec : ShipNameRecType; 

BEGIN 

WriteLine(" "); 

WriteLine{" Read ShipNameList "); 

WriteLine(" "); 

NEW{MasterShipNaineList) ; 

ASK MasterShipNameList TO ReadShipNames; 

NEW(MasterShipTypeList); 

Rec := ASK MasterShipNameList First(); 

WHILE Rec <> NILREC 

OUTPUT("Reading ship info for " + Rec.ShipName); 

ASK MasterShipTypeList TO ReadShips(Rec.ShipName); 

Rec := ASK MasterShipNameList Next (Rec); 

END WHILE; 

END METHOD; 


{ 

ASK METHOD ReadShipList; 
{ 
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ASK METHOD ReadLighterList; 

{ 


} 


VAR 

Rec : LighterNameRecType; 

BEGIN 

WriteLine(" "); 

WriteLine(" Read LighterNameList "); 

WriteLine{" "); 

NEW(MasterLighterNaineList) ; 

ASK MasterLighterNameList TO ReadLighterNames; 

NEW(MasterLighterTypeList); 

Rec := ASK MasterLighterNameList First(); 

WHILE Rec <> NILREC 

OUTPUT{"Reading Lighter info for " + Rec.LighterName); 

ASK MasterLighterTypeList TO 
ReadLighters(Rec.LighterName); 

Rec := ASK MasterLignterNameList Next(Rec); 

END WHILE; 

END METHOD; 

} 
} 

VAR 

Rec : BeachNameRecType; 


{ 

ASK METHOD ReadBeachList; 
{ 
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BEGIN 

WriteLine{" "); 

writeLine(" Read BeachNameList "); 

writeLine(" "); 

NEW(MasterBeachNameList); 

ASK MasterBeachNameList TO ReadBeachNames; 

NEW(MasterBeachTypeList); 

Rec := ASK MasterBeachNameList First{); 

WHILE Rec <> NILREC 

OUTPUT("Reading Beach info for " + Rec.BeachName); 

ASK MasterBeachTypeList TO ReadBeaches(Rec.BeachName); 

Rec := ASK MasterBeachNameList Next(Rec); 

END WHILE; 

END METHOD; 


{. .} 

ASK METHOD ReadFuelAreaList; 

{ } 


VAR 

Rec : RefuelNameRecType; 

BEGIN 

WriteLine(" "); 

WriteLine(" Read RefuelNameList "); 

WriteLine(" "); 

NEW(MasterRefuelNameList); 

ASK MasterRefuelNameList TO ReadRefuelNames; 
NEW(MasterRefuelTypeList); 
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Rec := ASK MasterRefuelNameList First(); 

WHILE Rec <> NILREC 

OUTPUT("Reading Refuel info for " + Rec.RefuelName); 
ASK MasterRefuelTypeList TO 
ReadRefuelArea{Rec.RefuelName); 

Rec := ASK MasterRefuelNameList Next(Rec); 

END WHILE; 

END METHOD; 

END OBJECT; 

END MODULE. 


DEFINITION MODULE ReclOHandle; 

{ 

Module Name: ReclOHandle Last Modified: 18 Jun 93 

Author: M. Bailey Modified By; J. S. Noel 

prof. NPGS Lt. USN 

DESCRIPTION: Defines the RecIOHandleObj. This PROTO object 

serves as a platform for input/output objects in the 
simulation. The ProduceRec method is the Icey method which 
inheriting objects must override. 

} 

FROM lOMod IMPORT StreamObj; 

FROM WriteLine IMPORT WriteLine; 


TYPE 

SArrayType = ARRAY INTEGER OF STRING; 

SHRecType = RECORD 

Topstring : STRING; 

OwnedString : SArrayType; 

END RECORD; 









SHArrayType = ARRAY INTEGER OF SHRecType; 

ReclOHandleObj = PROTO 
numberln : INTEGER; 

ASK METHOD ReadRecs(IN FileName : STRING); 

ASK METHOD ProduceRec(IN Headstring : STRING): #ANYREC; 

{Must inherit and override to use ProduceRec. Should 
tailor ProduceRec to meet the record type spec, of 
your application.} 

ASK METHOD ProduceRecByIndex(IN Index : INTEGER): 

#ANYREC; 

(Produces the record by its index in SHArray. Used 
usually when the entire set of records is going to be 
produced at once. No override needed, as it relies on 
ProduceRec.} 

(FindSHRec newly public} 

ASK METHOD FindSHRec(IN TopString : STRING; 

OUT SHRec : SHRecType); 

SHArray : SHArrayType; 

ASK METHOD ReadSH(IN File : StreamObj; 

OUT SHRec : SHRecType; 

OUT error : BOOLEAN); 

ASK METHOD D\ampRec(IN SHRec : SHRecType); 

{ Dumps the rec to sim.out } 

ASK METHOD ObjTerminate; 

END PROTO; 

END MODULE. 
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IMPLEMENTATION MODULE RecIOHandle; 

{ 

Module Name: RecIOHandle Last Modified: 18 Jun 93 

Author: M. Bailey Modified By; J. S. Noel 

Prof. NPGS Lt. USN 

DESCRIPTION: In^lements the ReclOHandleObj. This PROTO 

object serves as a platform for input/output objects in the 
simulation. The ProduceRec method is the key method which 
inheriting objects must override. 


FROM lOMod IMPORT StreamObj, FileUseType(Input); 

FROM lOMod IMPORT ReadKey; 

FROM WriteLine IMPORT WriteLine; 

CONST 

HeadstringSpew = FALSE; 

Spew = FALSE; 

LittleSpew = FALSE; 

TYPE 

StringRecType = RECORD 
String : STRING; 

Next : StringRecType; 

END RECORD; 

VAR 

NameOfFile : STRING; 

PROTO ReclOHandleObj; 

{ } 

ASK METHOD DvimpRec(IN SHRec : SHRecType) ; 

{ Dumps the rec to sim.out } 

{ } 
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i : INTEGER; 
max : INTEGER; 

BEGIN 

WriteLine(SHRec.Topstring + " -> (has " + 

INTTOSTR(HlGH(SHRec.O%medString)) 

+ " fields)"); 

max := HIGH(SHRec.OwnedString); 

FOR i := 1 TO max 

WriteLine(" ->" + SHRec.OwnedString[i] + "<-"); 

END FOR; 

END METHOD; 


{ 

ASK METHOD ProduceRec(IN Headstring : STRING): ANYREC; 

{ 

{This method does nothing, as it needs to be overridden. } 
BEGIN 

RETURN (NILREC) ; 

END METHOD; 


{ 

ASK METHOD ProduceRecByIndex(IN Index : INTEGER): ANYREC; 

{ 

VAR 


Rec : ANYREC; 







BEGIN 


IF Index <= HIGH(SHArray) 

Rec := ProduceRec(SHArray(Index].Topstring); 

ELSE 

Rec := NILREC; 

END IF; 

RETURN(Rec); 

END METHOD; 

} 
} 

VAR 

File : StreamObj; 
numberOfSH : INTEGER; 
i : INTEGER; 
error : BOOLEAN; 
string : STRING; 

BEGIN 

NameOfFile := FileName; 

{NameOfFile is a local var used in error message.} 

NEW(File); 

ASK File TO Open(FileName, Input); 

ASK File TO Readint(numberOfSH); 

ASK File TO ReadLine(string); 

numberin := numberOfSH; 


{ 

ASK METHOD ReadRecs(IN FileName : STRING); 
{ 
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IF LittleSpew 

WriteLine( "Opened file " + PileNaune + " which has " + 
INTTOSTR(nuinberOfSH) + 

" SHRecords"); 


END IF; 


NEW (SHArray, l. . nvunberOf SH) ; 

FOR i : = 1 TO n\JinberOf SH 
IF HeadstringSpew 

WriteLine(".—Rec " + INTTOSTR(i)) ; 

OUTPUT("Rec " + INTTOSTR(i) + " "); 

END IF; 


ReadSH{File, SHArray[i], error); 

IF error 

OUTPUT("problem reading file ", 
DETECTED at " + 
INTTOSTR(i)); 

writeLine("problem reading file 
FORMAT DETECTED at " 
INTTOSTR(i)); 

END IF; 


FileName, " BAD FORMAT 


" + FileName + " bad 
+ 


END FOR; 

END METHOD; 


{=======================Private Methods====================} 

{ } 

ASK METHOD ReadSH(IN File ; StreamObj; 

OUT SHRec ; SHRecType; 

OUT error : BOOLEAN); 

{ } 


VAR 


String : STRING; 
junk : STRING; 
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numberOfStrings : INTEGER; 

StringRec, OldStringRec : StringRecType; 
first : StringRecType; 
arrow : STRING; 

StringRec : StringRecType; 
i : INTEGER; 
z : CHAR; 

BEGIN 

NEW(SriRec) ; 

REPEAT 

ASK File TO Readstring(String); 

IF ((string = OR (SUBSTRd, l, string) = "#")) 

ASK File TO ReadLine(junk); 

END IF; 

UNTIL ((string <> "..") AND (SUBSTRd, i, string) <> "#")); 

SHRec.Topstring := string; 

IF HeadstringSpew 

OUTPUT(SHRec.Topstring); 
writeLine(" " + SHRec.Topstring); 

END IF; 

NEW(StringRec); 
numberOfStrings ;= 1; 
first := StringRec; 

ASK File TO Readstring(arrow); 

IF arrow <> 

OUTPUT("file not formatted correctly"); 
error := TRUE; 

RETURN; 

ELSE 

error := FALSE; 
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END IP; 


WHILE String <> "\\" 

ASK File TO Readstring(string); 

IF ((string = OR (SUBSTRd, i, string) * "#")) 

ASK File TO ReadLine(string); 

ELSE 

OldStringRec := StringRec; 

StringRec.String := string; 

NEW(StringRec); 

OldStringRec.Next := StringRec; 
numberOfStrings := numberOfStrings + i; 

END IF; 

END WHILE; 

ASK File TO ReadLine(String); 

IF (numberOfStrings > 0) AND NOT error 

NEW(SHRec.OwnedString, l..numberOfStrings * 2); 
StringRec :* first; 

FOR i := 1 TO numberOfStrings - 2 

SHRec.OwnedString[i] := StringRec.String; 

IF Spew 

OUTPUT(i, " ", stringRec.String); 

WriteLine(SHRec.OwnedString[i] + " "); 

END IF; 

StringRec := StringRec.Next; 

END FOR; 

END IF; 
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END METHOD; 


{ } 

ASK METHOD PindSHRec{IN TopString ; STRING; 

OUT SHRec : SHRecType); 

{ } 

VAR 

ThisRec : SHRecType; 
i : INTEGER; 

BEGIN 

i : = 0 ; 

REPEAT 

INC(i); 

ThisRec := SHArray[i]; 

UNTIL ((i >= HIGH(SHArray)) OR (ThisRec.Topstring = 
Topstring)); 

IF (ThisRec. Topstring = TopString) 

SHRec := ThisRec; 

ELSE 

SHRec := NILREC; 

WriteLine("FindSHRec of ReclOHandle came up empty 
searching for Topstring " + 

Topstring); 

writeLine("while looking in file " + NameOfFile) ; 

END IF; 

IF Spew 

WriteLine(" !!! find sh rec called with topstring " + 
Topstring + 
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" and returns rec with topstring " + 
ThisRec.Topstring); 


END IF; 


END METHOD; 

{ 

ASK METHOD ObjTerminate; 

{ 

VAR 

i : INTEGER; 

REC : SHRecType; 

BEGIN 

FOR i := 1 TO HIGH(SHArray) 
REC := SHArray[i]; 

DISPOSE(REC.OwnedString); 
DISPOSE(REC); 

END FOR; 

END METHOD; 

END PROTO; 

END MODULE. 


DEFINITION MODULE ShpName; 

{ 


Module Name: ShpName 
Author: J. S. Noel 


Last Modified: 28 Jul 93 





USN 


Lt. 

DESCRIPTION: Implements the 
ShipNamelORecHandleObj which 
inputing the Ship Names into 
scenario. 


ShipNameListObj and the 
together provide the meauis for 
the simulation for a given 

} 


FROM RecIOHandle IMPORT RecIOHandleObj; 
FROM ListMod IMPORT QueueList; 

TYPE 


ShipNameRecType = RECORD 

ShipName ; STRING; 


END RECORD; 

ShipNameListObj = OBJECT(QueueList{ANYREC :ShipNameRecType]) 
ASK METHOD ReadShipNames; 

END OBJECT; 


ShipNameIORecHandleObj=OBJECT(RecIOHandleObj[ANYREC: 

ShipNameRecType]) 


END OBJECT; 


VAR 

ShipNamelOHandler : ShipNamelORecHandleObj; 
MasterShipNameList : ShipNameListObj; 

END MODULE. 
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IMPLEMENTATION MODULE ShpName; 


{ 


Module Name: ShpName Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 


DESCRIPTION: Implements the ShipNameListObj and the 

ShipNamelORecHandleObj which together provide the means for 
inputing the Beach names into the simulation for a given 
scenario. 


} 


FROM RecIOHandle IMPORT SHArrayType; 


OBJECT ShipNameListObj; 


{ } 

ASK METHOD ReadShipNames; 

{ } 

VAR 

Rec : ShipNameRecType; 

index : INTEGER; 

high : INTEGER; 

SHArray : SHArrayType; 


BEGIN 

IF ShipNamelOHandler = NILOBJ 
NEW(ShipNamelOHandler); 

ASK ShipNamelOHandler TO ReadRecs{"ShpName.dat"); 
END IF; 

SHArray := ASK ShipNamelOHandler SHArray; 
high := HIGH(SHArray); 

FOR index := l TO high 
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NEW(Rec) ; 

Rec.ShipName := SHArray[index].Topstring; 
Add(Rec); 

END FOR; 

END METHOD; 

END OBJECT; 

END MODULE. 


DEFINITION MODULE ShpList; 

{ 

Module Name: ShpList Last Modified; 18 Jun 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines the ShipTypeListObj and the 
ShipTypelORecHandleObj which together provide the means for 
inputing the RoRo's into the simulation for a given 
scenario. 

} 

FROM ReciOHandle IMPORT RecIOHandleObj; 

FROM LiStMod IMPORT QueueList; 

FROM Global IMPORT SpotRecType; 

FROM Ship IMPORT ShipTypeType; 

TYPE 


SpotArrayType = ARRAY INTEGER OF SpotRecType; 
ShipTypeRecType = RECORD 


ShipTypeName 

TypeShip 

DistanceFromBLCP 


STRING; 
ShipTypeType; 
REAL; 
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NumOfSpots 

SpotArray 

NumOfLoLoVehic1es 

NtimOfRRDFVehicles 

NumOfAnySpotvehic1es 


END RECORD; 


INTEGER; 
SpotArrayType ; 
INTEGER; 
INTEGER; 
INTEGER; 


ShipTypeListObj = OBJECT(QueueList[ANYREC : 

ShipTypeRecType]) 

ASK METHOD ReadShips{IN ShipName : STRING); 
END OBJECT; 


ShipTypelORecHandleObj = OBJECT(RecIOHandleObj[ANYREC : 

ShipTypeRecType]) 

OVERRIDE 

ASK METHOD ProduceRec(IN Headstring : STRING): 

ShipTypeRecType; 

END OBJECT; 


VAR 

ShipTypelOHandler : ShipTypelORecHandleObj; 
MasterShipTypeList : ShipTypeListObj; 

END MODULE. 


IMPLEMENTATION MODULE ShpList; 

{ 

Module Name: ShpList Last Modified: 18 Jun 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Implements the ShipTypeListObj and the 

ShipTypelORecHandleObj which together provide the means for 
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inputing the RoRo's into the simulation for a given 
scenario. 


FROM RecIOHandle IMPORT SHRecType; 

FROM WriteLine IMPORT WriteLine; 

FROM Global IMPORT SpotRecType; 

FROM Convert IMPORT SpotTypeToStr,StrToSpotType, 

ShipTypeToStr,StrToShipType, 
BooleanToStr; 

OBJECT ShipTypelORecHandleObj; 

{ 

ASK METHOD ProduceRec(IN Headstring : STRING): 

ShipTypeRecType; 

{ 

VAR 

SHRec : SHRecType; 

Rec : ShipTypeRecType; 
index, i : INTEGER; 

Char : CHAR; 

Spot : SpotRecType; 

BEGIN 

WriteLine(" producing record Ship type " + Headstring); 
OUTPUT(" producing record Ship type " + Headstring); 
FindSHRec{Headstring, SHRec); 

WriteLine(" "); 

IF SHRec = NILREC 

OUTPUT{"No record Found of " + Headstring); 

WriteLine{"No record Found of " + Headstring); 

HALT; 

END IF; 

OUTPUT{" got SHRec"); 

NEW{Rec); 

Rec.ShipTypeName := SHRec.Topstring; 

OUTPUT("ShipTypeName is " + Rec.ShipTypeName); 

WriteLine{"ShipTypeName is " + Rec.ShipTypeName); 







index := l; 


Rec.TypeShip := StrToShipType(SHRec.OwnedString[index]); 
writeLine("TypeShip is " + ShipTypeToStr(Rec.TypeShip)); 
INC(index); 


Rec.DistanceFroitiBLCP := STRTOREAL (SHRec. OwnedSt ring [index]) 
WriteLine("DistanceFroinBLCP is" + 
REALTOSTR(Rec.DistanceProinBLCP)) ; 

INC (index) ; 

Rec.NumOfSpots := STRTOINT(SHRec.OwnedString[index]); 
WriteLine("NumOfSpots is " + INTTOSTR(Rec.NumOfSpots)); 

INC(index); 

NEW(Rec.SpotArray, i..Rec.NumOfSpots); 

OUTPUT("index = " + INTTOSTR(index)); 

IF (Rec.NumOfSpots > 0) 
i := 1; 

vmiLE.i <= Rec.NumOfSpots 
NEW(Spot); 

Spot.SpotClassification := 

StrToSpotType(SHRec.OwnedString[index]); 

WriteLine("Spot "+ INTTOSTR(i) + " is Type " + 

SpotTypeToStr(Spot.SpotClassification)); 

OUTPUT("SpOt "+ INTTOSTR(i) + " is Type " + 

SpotTypeToStr(Spot.SpotClassification)); 

Char := SCHAR(SHRec.OwnedString[index+i], i); 

CASE Char 

WHEN 'T','t' : Spot.SpOtFree := TRUE; 

WHEN 'F'.'f : Spot. Spot Free := FALSE; 

END CASE; 

WriteLine("Spot "+ INTTOSTR(i) + " is Free (T/F) " + 

BooleanToStr(Spot.SpotFree)); 
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OUTPUT("Spot "+ INTTOSTR(i) + " is Free (T/P) " + 

Char); 


Rec.SpotArray[i1 := Spot; 

i := i + 1; 

index := index + 2; 

END VmiLE; 

END IF; 

index := index; 

Rec.NumOfLoLoVehicles := STRTOlNT{SHRec.OvmedString[index]); 
WriteLine("NumOfLoLoVehicles is " + 

INTTOSTR(Rec.NumOfLoLoVehicles)); 

INC(index); 

Rec.NvunOfRRDFVehicles := STRTOlNT(SHRec.OvmedString[index]); 
WriteLine("NumOfRRDFVehicles is " + 

INTTOSTR(Rec.NumOfRRDFVehicles)); 

INC(index); 

Rec.NumOfAnySpotVehicles := 

STRTOINT(SHRec.OwnedString[index]); 
WriteLine("NumOfAnySpotVehicles is " + 

INTTOSTR(Rec.NumOfAnySpotVehicles)); 

INC(index); 

OUTPUT("finished reading Ship type information"); 

RETURN(Rec); 

END METHOD; 

END OBJECT; 


OBJECT ShipTypeListObj; 
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{ 

ASK METHOD Headships(IN ShipType : STRING); 

{ 

VAR 

Rec : ShipTypeRecType; 

BEGIN 

IF ShipTypelOHandler = NILOBJ 
NEW(ShipTypelOHandler); 

ASK ShipTypelOHandler TO ReadRecs{"ShipType.dat"); 

END IF; 

OUTPUT("ship handler instanciated and full of raw records") 
OUTPUT("about to produce type record for " +ShipType); 

Rec := ASK ShipTypelOHandler TO ProduceRec(ShipType); 
OUTPUT(" got the record complete "); 

IF (Rec <> NILREC) 

Add(Rec); 

ELSE 

OUTPUT(" never found recordl"); 

END IF; 

END METHOD; 

END OBJECT; 


END MODULE. 







DEFINITION MODULE LtNaine; 

{ 


Module Name: LtName Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines the LighterNameListObj and the 
LighterNamelORecHandleObj which together provide the means 
for inputing the Lighter Names into the simulation for a 
given scenario. 

} 


FROM RecIOHandle IMPORT RecIOHandleObj; 
FROM ListMod IMPORT QueueList; 


TYPE 


LighterNameRecType = RECORD 

LighterName : STRING; 

END RECORD; 

LighterNameListObj = OBJECT(QueueList[ANYREC : 

LighterNameRecType]) 
ASK METHOD ReadLighterNames; 

END OBJECT; 


LighterNamelORecHandleObj =OBJECT(RecIOHandleObj[ANYREC: 

LighterNameRecType]) 


END OBJECT; 


VAR 

LighterNamelOHandler : LighterNamelORecHandleObj; 
MasterLighterNameList : LighterNameListObj; 

END MODULE. 
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IMPLEMENTATION MODULE LtName; 


{ 


ttodule Name: LtName Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Implements the LighterNameListObj and the 

LighterNamelORecHandleObj which together provide the means 
for inputing the Lighter Names into the simulation for a 
given scenario. 

} 


FROM ReclOHandle IMPORT SHArrayType; 
FROM WriteLine IMPORT writeLine; 


OBJECT LighterNameListObj; 


{ } 

ASK METHOD ReadLighterNames; 

{ } 

VAR 

Rec : LighterNameRecType; 


index : INTEGER; 
high : INTEGER; 
SHArray : SHArrayType; 


BEGIN 

IF LighterNamelOHcUidler = NILOBJ 
NEW(LighterNamelOHandler); 

ASK LighterNamelOHandler TO ReadRecs("LtName.dat"); 
END IF; 

SHArray := ASK LighterNamelOHandler SHArray; 
high := HIGH(SHArray); 
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FOR index := i TO high 

WriteLine("Reading Lighter Name in LtName.mod "); 
NEW(Rec); 

Rec.LighterName := SHArray[index].Topstring; 
Add{Rec); 

END FOR; 

WriteLine ("-exit ReadLighterNames.") 

END METHOD; 

END OBJECT; 

END MODULE. 

DEFINITION MODULE LtList; 

{ 


Module Name: LtList Last Modified: 28 Jul 93 

Author: J. S. Noel 
Lt. USN 

DESCRIPTION; Defines the LighterTypeListObj and the 
LighterTypeiORecHandleObj which together provide the means 
for inputing the Lighter’s into the simulation for a given 
scenario. 

} 

FROM ReclOHandle IMPORT ReclOHandleObj; 

FROM ListMod IMPORT QueueList; 

FROM Global IMPORT spotRecType, SpotType; 

FROM Lighter import LighterNameType; 

TYPE 


LighterTypeRecType = RECORD 
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ID 

LighterTypeName 

SpotRequired 

SpeedMax 

SpeedFull 

MaxLoad 

FuelCap 

BurnRate 

MinFuel 

END RECORD; 


STRING; 

LighterNameType; 
SpotType; 

REAL; 

REAL; 

INTEGER; 

REAL; 

REAL; 

REAL; 


LighterTypeListObj = OBJECT(QueueList[ANYREC : 

LighterTypeRecType]) 

ASK METHOD ReadLighters(IN LighterName : STRING); 

END OBJECT; 

LighterTypelORecHandleObj = OBJECT(RecIOHandleObj[ANYREC 

LighterTypeRecType]) 

OVERRIDE 

ASK METHOD ProduceRec{IN Headstring : STRING): 

LighterTypeRecType; 

END OBJECT; 


VAR 

LighterTypelOHandler : LighterTypelORecHandleObj; 
MasterLighterTypeList : LighterTypeListObj; 

END MODULE. 
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IMPLEMENTATION MODULE LtList; 


Module Name: LtList Last Modified: 18 Jun 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Implements the LighterTypeListObj and the 

LighterTypelORecHandleObj which together provide the means 
for inputing the Lighter's into the simulation for a given 
scenario. 

FROM ReclOHandle IMPORT SHRecType; 

PROM WriteLine IMPORT WriteLine; 

FROM Global IMPORT SpOtRecType; 

FROM Convert IMPORT SpotTypeToStr, StrToSpotType, 

LighterNameTypeToStr, 

S t rToLight erNameType; 

OBJECT LighterTypelORecHandleObj; 


ASK METHOD ProduceRec(IN Headstring : STRING): 

LighterTypeRecType; 


VAR 

SHRec ; SHRecType; 

Rec : LighterTypeRecType; 
index, i : INTEGER; 

Char : CHAR; 


BEGIN 

WriteLine{" producing record Lighter type " + Headstring); 
OUTPUT(" producing record Lighter type " + Headstring); 
FindSHRec(Headstring, SHRec); 

WriteLine(" "); 

IF SHRec = NILREC 

OUTPUT("No record Found of " + Headstring); 
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WriteLine("No record Found of " + Headstring); 

HALT; 

END IF; 

OUTPUT{" got SHRec"); 

NEW(Rec); 

Rec.ID := SHRec.Topstring; 
writeLine("LighterID is " + Rec.ID); 
index := l; 

Rec. LighterTypeNcune : = 

StrToLighterNameType(SHRec.O%medString[index]); 

OUTPUT("LighterTypeName is " + 

LighterNameTypeToStr(Rec.LighterTypeName)); 
writeLine{ "LighterTypeName is '• + 

LighterNameTypeToStr(Rec.LighterTypeName)); 

INC(index); 

Rec.SpotRequired := StrToSpotType(SHRec.OwnedString[index]); 
writeLine("SpotRequired is " + 

SpotTypeToStr(Rec.SpotRequired)); 

INC(index); 

Rec.SpeedMax := STRTOREAL(SHRec.OwnedString[index]); 
WriteLine("MaxSpeed is " + realtostr(R ec.SpeedMax)); 

INC(index); 

Rec.SpeedFull := STRTOREAL(SHRec.OwnedString[index]); 
WriteLine("Full Load Speed is " + REALTOSTR(Rec.SpeedFull)); 
INC(index); 

Rec.MaxLoad := STRTOINT(SHRec.OwnedString[index]); 

WriteLine("Max Load is " + INTTOSTR(Rec.MaxLoad)); 

INC(index); 

Rec.FuelCap := STRTOREAL(SHRec.OwnedString[index]); 
WriteLine("Fuel capacity is " + REALTOSTR(Rec.FuelCap)); 

INC(index); 

Rec. BurnRate : = STRTORiiML (SHRec. OwnedString [index]) ; 
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WriteLine("Fuel burn rate is " + REALTOSTR{Rec.BurnRate)); 
INC(index); 

Rec.MinFuel := STRTOREAL(SHRec.OwnedString[index]); 
WriteLine("minimum fuel percentage is " + 

REALTOSTR(Rec.MinFuel)); 

INC(index); 

OUTPUT("finished reading Lighter type information"); 

RETURN(Rec); 

END METHOD; 

END OBJECT; 


OBJECT LighterTypeListObj; 

{ 

ASK METHOD ReadLighters(IN LighterType ; STRING); 

{ 

VAR 

Rec : LighterTypeRecType; 

BEGIN 

IF LighterTypelOHandler = NILOBJ 
NEW(LighterTypelOHandler); 

ASK LighterTypelOHandler TO ReadRecs("LtType.dat"); 

END IF; 

OUTPUT("Lighter handler instantiated and full of raw 
records"); 

OUTPUT("about to produce type record for " + LighterType); 
Rec := ASK LighterTypelOHandler TO ProduceRec(LighterType); 
OUTPUT(" got the record complete "); 

IF Rec <> NILREC 
Add(Rec); 

ELSE 







OUTPUT(" never found record!"); 
END IF; 

END METHOD; 

END OBJECT; 

END MODULE. 


DEFINITION MODULE BchName; 


Module Name: BchName Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines the BeachNameListObj and the 
BeachNamelORecHandleObj which together provide the means for 
inputing the Beach Names into the simulation for a given 
scenario. 


FROM RecIOHandle IMPORT ReclOHandleObj; 
FROM ListMod IMPORT QueueList; 


TYPE 

BeachNameRecType = RECORD 

BeachName : STRING; 

END RECORD; 

BeachNameListObj =0BJECT(QueueList[ANYREC:BeachNameRecType]) 
ASK METHOD ReadBeachNames; 

END OBJECT; 
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BeachNamelORecHandleObj = OBJECT(ReclOHandleObj[ANYREC : 
BeachNameRecType]) 

END OBJECT; 

VAR 

BeachNamelOHandler : BeachNamelORecHandleObj; 
MasterBeachNameList : BeachNameListObj; 

END MODULE. 


implementation module BchName; 


{ 

Module Name: BchName Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 


DESCRIPTION: Implements the BeachNameListObj and the 

BeachNamelORecHandleObj which together provide the means for 
inputing the Beach names into the simulation for a given 
scenario. 


} 


FROM RecIOHandle IMPORT SHArrayType; 


OBJECT BeachNameListObj; 


{ } 

ASK METHOD ReadBeachNames; 

{ } 

VAR 

Rec : BeachNameRecType; 


index : INTEGER; 
high : INTEGER; 

SHArray : SHArrayType; 
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BEGIN 


IF BeachNamelOHandler = NILOBJ 
NEW(BeachNamelOHandler); 

ASK BeachNamelOHandler TO ReadRecs("BchName.dat"); 
END IF; 

SHArray := ASK BeachNamelOHandler SHArray; 
high := HIGH(SHArray); 

FOR index := l TO high 
NEW(Rec); 

Rec.BeachName := SHArray[index].Topstring; 

Add(Rec); 

END FOR; 

END METHOD; 

END OBJECT; 

END MODULE. 


DEFINITION MODULE BchList; 

{ 


Module Name: BchList Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines the BeachTypeListObj and the 
BeachTypelORecHandleObj which together provide the means for 
inputing the Beaches into the simulation for a given 
scenario. 

} 

FROM RecIOHandle IMPORT RecIOHandleObj; 

FROM ListMod IMPORT QueueList; 

FROM Global IMPORT SpotRecType, SpotType; 
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FROM Beach IMPORT BeachType; 

FROM ShpList IMPORT SpotArrayType; 

TYPE 


BeachTypeRecType = RECORD 


ID 

BeachTypeName 
NumOfSpots 
SpotArray 
DistanceFromSLCP 
DistBeachToArea 


STRING; 
BeachType; 
INTEGER; 
SpotArrayType; 
REAL; 

REAL; 


END RECORD; 

BeachTypeListObj = OBJECT(QueueList[ANYREC : 

BeachTypeRecType]) 

ASK METHOD ReadBeaches(IN BeachName : STRING); 

END OBJECT; 

BeachTypelORecHandleObj = OBJECT(RecIOHandleObj[ANYREC 

BeachTypeRecType]) 

OVERRIDE 

ASK METHOD ProduceRec(IN Headstring : STRING): 

BeachTypeRecType; 

END OBJECT; 

VAR 


BeachTypelOHandler : BeachTypelORecHandleObj; 
MasterBeachTypeList : BeachTypeListObj; 

END MODULE. 
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IMPLEMENTATION MODULE BchList; 


{ 

ttodule Name: BchList Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Implements the BeachTypeListObj and the 

BeachTypelORecHandleObj which together provide the means for 
inputing the Beaches into the simulation for a given 
scenario. 

} 

PROM RecIOHandle IMPORT SHRecType; 

FROM WriteLine IMPORT WriteLine; 

FROM Global IMPORT SpotRecType; 

PROM Convert IMPORT SpotTypeToStr, strToSpotType, 

BeachTypeToStr, StrToBeachType, 
BooleanToStr; 


OBJECT BeachTypelORecHandleObj; 

{ } 

ASK METHOD ProduceRec{IN Headstring : STRING): 

BeachTypeRecType; 

{ } 

VAR 

SHRec : SHRecType; 

Rec : BeachTypeRecType; 
index, i : INTEGER; 

Char : CHAR; 

Spot : SpotRecType; 


BEGIN 

WriteLine(" producing record Beach type " + Headstring); 
OUTPUT(" producing record Beach type " + Headstring); 
FindSHRec(Headstring, SHRec); 

WriteLine(" "); 
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IF SHRec = NILREC 

OUTPUT("No record Found of " + Headstring); 

WriteLine("No record Found of " + Headstring); 

HALT; 

END IF; 

OUTPUT(" got SHRec"); 

NEW(Rec); 

Rec.lD := SHRec.TopString; 

WriteLine{"BeachiD is " + Rec.lD); 
index := i; 

Rec.BeachTypeName := 

StrToBeachType(SHRec.OwnedString[index]); 

OUTPUT("BeachTypeName is " + 

BeachTypeToStr(Rec.BeachTypeName)); 

WriteLine("BeachTypeName is " + 

BeachTypeToStr(Rec.BeachTypeName)); 

INC(index); 

Rec.NumOfSpots := STRTOINT(SHRec.OvmedString[index]); 
WriteLine("Number Of Spots is " + INTTOSTR(Rec.NumOfSpots)); 
INC(index); 

NEW(Rec.SpotArray, l..Rec.NumOfSpots); 

OUTPUT("index = " + INTTOSTR(index)); 

IF (Rec.NiimOfSpots > 0) 
i : = 1 ; 

WHILE i <= Rec.NumOfSpots 
NEW(Spot); 

Spot.SpotClassification := 

StrToSpotTyoe{SHRec.OwnedString[index]); 

WriteLine("Spot "+ INTTOSTR(i) + " is Type " + 

SpotTypeToStr(Spot.SpotClassification)); 

OUTPUT("Spot "+ INTTOSTR(i) + " is Type " + 

SpotTypeToStr(Spot.SpotClassification)); 
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Char := SCHAR(SHRec.OwnedString[index+l], 1); 

CASE Char 

WHEN : Spot.SpotPree := TRUE; 

WHEN •F','f' : Spot.SpotFree :* FALSE; 

END CASE; 

writeLine("Spot "+ iNTTOSTR(i) + " is Free (T/F) " + 
BooleanToStr(Spot.SpotFree)); 

OUTPUT("Spot "+ INTTOSTR(i) + " is Free (T/F) " + 
Char); 

Rec.SpotArray[i] := Spot ; 

i : = i + 1 ; 

index := index + 2; 

END WHILE; 

END IF; 

index := index; 


Rec.DistanceFromSLCP := STRTOREAL(SHRec.OvmedString[index]); 
writeLine("DistanceFromSLCP is " + 

REALTOSTR(Rec.DistanceFromSLCP)); 

INC(index); 

Rec.DistBeachToArea := STRTOREAL(SHRec.OwnedString[index]); 
WriteLine("DistBeachToArea is " + 

REALTOSTR(Rec.DistBeachToArea)); 

INC(index); 


OUTPUT("finished reading Beach type information"); 
RETURN(Rec); 

END METHOD; 

END OBJECT; 


OBJECT BeachTypeListObj; 
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{ 

ASK METHOD ReadBeaches{IN BeachType : STRING); 

{ 


} 

} 


VAR 

Rec : BeachTypeRecType; 

BEGIN 

IF BeachTypelOHandler = NILOBJ 
NEW(BeachTypelOHandler); 

ASK BeachTypelOHandler TO ReadRecs("BchType.dat"); 

END IF; 

OUTPUT("Beach handler instanciated and full of raw 
records"); 

OU-PUT("about to produce type record for " + BeachType); 
Rec := ASK BeachTypelOHandler TO ProduceRec(BeachType); 
OUTPUT(" got the record complete "); 

IF Rec <> NILREC 
Add(Rec); 

ELSE 

OUTPUT(" never found record!"); 

END IF; 

END METHOD; 

END OBJECT; 

END MODULE. 


DEFINITION MODULE RFAName; 

{ 

Module Name: RFAName Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 
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DESCRIPTION: Defines the RefuelNameListObj and the 
RefuelNamelORecHandleObj which together provide the means 
for inputing the Refuel area Names into the simulation for a 
given scenario. 

} 

FROM ReclOHandle IMPORT ReclOHandleObj; 

FROM ListMOd IMPORT QueueList; 


TYPE 


RefuelNameRecType = RECORD 

RefuelName : STRING; 

END RECORD; 

RefuelNameListObj = OBJECT(QueueListtANYREC : 

RefuelNameRecType]) 
ASK METHOD ReadRefuelNames; 

END OBJECT; 


RefuelNamelORecHandleObj 
END OBJECT; 


= OBJECT(ReclOHandleObj[ANYREC : 
RefuelNameRecType]) 


VAR 

RefuelNamelOHandler : RefuelNamelORecHandleObj; 
MasterRefuelNameList : RefuelNameListObj; 

END MODULE. 
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IMPLEMENTATION MODULE RFAName; 

{ 

Module Name: RFAName Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: ln: 5 )lements the RefuelNameListObj and the 

RefuelNamelORecHandleObj which together provide the means 
for inputing the Refuel area Names into the simulation for a 
given scenario. 

} 

FROM RecIOHandle IMPORT SHArrayType; 


OBJECT RefuelNameListObj; 


{ } 

ASK METHOD ReadRefuelNames; 

{ } 

VAR 

Rec ; RefuelNameRecType; 


index : INTEGER; 
high : INTEGER; 

SHArray : SHArrayType; 


BEGIN 

IF RefuelNamelOHandler = NILOBJ 
NEW(RefuelNamelOHandler); 

ASK RefuelNamelOHandler TO ReadRecs("RFAName.dat"); 
END IF; 

SHArray := ASK RefuelNamelOHandler SHArray; 
high := HIGH(SHArray); 

FOR index := l TO high 
NEW(Rec); 
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Rec.RefuelName := SHArray[index].Topstring; 
Add(Rec); 

END FOR; 

END METHOD; 

END OBJECT; 

END MODULE. 


DEFINITION MODULE RFAList; 

{ 

Module Name: RFAList Last Modified: 28 Jul 93 

Author; J. S. Noel 
Lt. USN 

DESCRIPTION: Defines the RefuelTypeListObj and the 
RefuelTypelORecHandleObj which together provide the means 
for inputing the Refuel area into the simulation for a given 
scenario. 

} 

FRC»1 RecIOHandle IMPORT ReclOHandleObj; 

FROM ListMod IMPORT QueueList; 

FROM Global IMPORT RefuelSpotRecType; 

FROM Refuel IMPORT RefuelSpotArrayType; 

TYPE 


RefuelTypeRecType = RECORD 


AreaTypeName 
NiimOfSpots 
DistAreaToShip 
SpotArray 
FuelPunqpRate 


STRING; 

INTEGER; 

REAL; 

RefuelSpotArrayType; 
REAL; 
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END RECORD; 


RefuelTypeListObj = OBJECT(QueueList(ANYREC : 

RefuelTypeRecType]) 

ASK METHOD ReadRefuelArea(IN RefuelAreaName : STRING); 
END OBJECT; 

RefuelTypelORecHandleObj = OBJECT(ReclOHandleObj[ANYREC : 

RefuelTypeRecType]) 

OVERRIDE 

ASK METHOD ProduceRec(IN Headstring : STRING): 

RefuelTypeRecType; 

END OBJECT; 

VAR 

RefuelTypelOHandler : RefuelTypelORecHandleObj; 
MasterRefuelTypeLis*- : RefuelTypeListObj ; 

END MODULE. 


IMPLEMENTATION MODULE RFAList; 

{ 

Module Name: RFAList Last Modified: 28 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION; Implements the RefuelTypeListObj and the 
RefuelTypelORecHandleObj which together provide the means 
for inputing the Refuel area into the simulation for a given 
scenario. 

} 

FROM RecIOHandle IMPORT SHRecType; 

FROM WriteLine IMPORT WriteLine; 

FROM Global IMPORT RefuelSpotRecType; 

FROM Convert IMPORT BooleanToStr; 

OBJECT RefuelTypelORecHandleObj; 
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} 


{ 

ASK METHOD ProduceRec(IN Headstring : STRING): 

RefuelTypeRecType; 

{ } 

VAR 

SHRec : SHRecType; 

Rec : RefuelTypeRecType; 
index, i : INTEGER; 

Char : CHAR; 

Spot : RefuelSpotRecType; 


BEGIN 

WriteLine(" producing record Refuel Area type " + 
Headstring); 

OUTPUT(" producing record Refuel Area type " + Headstring); 
FindSHRec(Headstring, SHRec); 

WriteLine(" "); 

IF SHRec = NILREC 

OUTPUT("No record Found of " + Headstring); 

WriteLine("No record Found of " + Headstring); 

HALT; 

END IF; 

OUTPUT(" got SHRec"); 

NEW(Rec); 

Rec.AreaTypeName := SHRec.Topstring; 

OUTPUT("AreaTypeName is " + Rec.AreaTypeName) ; 
writeLine("AreaTypeName is " + Rec.AreaTypeName); 
index := 1; 

Rec.NumOfSpots := STRTOINT(SHRec.OwnedString[index]); 
WriteLine("Nxomber Of Spots is " + INTTOSTR(Rec.NiomOfSpots)) ; 
INC(index); 

Rec.DistAreaToShip := STRTOREAL(SHRec.OwnedString[index]); 
WriteLine("DistAreaToShip is " + 

REALTOSTR(Rec.DistAreaToShip)); 







INC(index); 


NEW{Rec.SpotArray, l..Rec.NumOfSpots); 

OUTPUT("index = " + INTTOSTR(index)); 

IF (Rec.NumOfSpots > 0) 
i := 1; 

WHILE i <= Rec.NumOfSpots 
NEW(Spot); 

Char := SCHAR(SHRec.OwnedString{index], 1); 

CASE Char 

WHEN ’T','t' : Spot.RefuelSpotFree := TRUE; 

WHEN 'F'.'f : Spot.RefuelSpotFree := FALSE; 

END CASE; 

WriteLine("Spot "+ INTTOSTR(i) + " is Free (T/F) " + 
BooleanToStr(Spot.RefuelSpotFree)); 
OUTPUT("Spot "+ INTTOSTR(i) + " is Free (T/F) " + 

Char); 

Rec.SpotArrayIi] := Spot; 

i : = i + 1 ; 

index := index + l; 

END WHILE; 

END IF, 

index := index; 

Rec.FuelPxunpRate := STRTOREAL(SHRec.OvmedString(index]); 
WriteLine("FuelPtimpRate is " + REALTOSTR(Rec.FuelPiimpRate)) ; 
INC(index); 

OUTPUT("finished reading RefuelArea type information"); 
RETURN(Rec); 

END METHOD; 

END OBJECT; 
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OBJECT RefuelTypeListObj; 

{ 

ASK METHOD ReadRefuelArea{IN RefuelAreaType : STRING); 

{ 

VAR 

Rec : RefuelTypeRecType; 

BEGIN 

IF RefuelTypelOHandler = NILOBJ 
NEW(RefuelTypelOHandler); 

ASK RefuelTypelOHandler TO ReadRecs{"RFAType.dat"); 
END IF; 

OUTPUT("Beach handler instanciated and full of raw 
records"); 

OUTPUT ("cibout to produce type record for " + 
RefuelAreaType); 

Rec := ASK RefuelTypelOHandler TO 
ProduceRec(RefuelAreaType); 

OUTPUT(" got the record complete "); 

IF Rec <> NILREC 
Add(Rec); 

ELSE 

OUTPUT(" never found record!"); 

END IF; 

END METHOD; 

END OBJECT; 


END MODULE. 








DEFINITION MODULE Builder; 


{ 

Module Name; Builder Last Modified: 26 Jul 93 

Author; j. S. Noel 

Lt. USN 


DESCRIPTION: Defines the ObjectBuilderObj as well as the 
four other Queue Objects required to build and store the 
RoRo, Lighter, Beach, and FuelArea objects required for the 
users scenario. 


FROM GrpMod 

IMPORT 

QueueObj; 

FROM Ship 

IMPORT 

RoRoObj; 

FROM Lighter 

IMPORT 

LighterObj; 

FROM Beach 

IMPORT 

BeachObj; 

FROM Refuel 

IMPORT 

RefuelAreaObj; 


} 


TYPE 

ObjectBuilderObj = OBJECT 
ASK METHOD BuildObjectS; 

END OBJECT; 

ShipBuilderObj = OBJECT(QueueObj[ANYOBJ : RoRoObj]) 

ASK METHOD BuildShipS; 

END OBJECT; 

LighterBuilderObj = OBJECT(QueueObj[ANYOBJ : LighterObj]) 
ASK METHOD BuildLighters; 

END OBJECT; 

BeachBuilderObj = OBJECT{QueueObj[ANYOBJ : BeachObj]) 

ASK METHOD BuildBeaches; 
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END OBJECT; 


FuelAreaBuilderObj = OBJECT(QueueObj[ANYOBJ : 
RefuelAreaObj]) 

ASK METHOD BulldPuelAreas; 

END OBJECT; 

VAR 

ObjectBuilder : ObjectBuilderObj; 
ShipBuilder : ShipBuilderObj; 
LighterBuilder : LighterBuilderObj; 
BeachBuilder : BeachBuilderObj; 
FuelAreaBuilder : FuelAreaBuilderObj; 

END MODULE. 

IMPLEMENTATION MODULE Builder; 


{ 


Module Name: Builder Last Modified: 26 Jul 93 

Author: J. S. Noel 

Lt. USN 


DESCRIPTION: Inplements the ObjectBuilderObj as well as the 

four other Queue Objects required to build and store the 
RoRo,,Lighter, Beach, and FuelArea objects required for the 
users scenario. 


FROM 

Ship 

IMPORT 

FROM 

Lighter 

IMPORT 

FROM 

Beach 

IMPORT 

FROM 

Refuel 

IMPORT 

FROM 

ShpList 

IMPORT 

FROM 

LtList 

IMPORT 

FROM 

BchList 

IMPORT 


} 

RoRoObj; 

LighterObj; 

BeachObj; 

RefuelAreaObj; 

MasterShipTypeList, ShipTypeRecType; 
MasterLighterTypeList, 
LighterTypeRecType; 

MasterBeachTypeList, BeachTypeRecType; 
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FROM RFAList IMPORT MasterRefuelTypeList 


FROM 

ShpName 

IMPORT 

FROM 

LtName 

IMPORT 

FROM 

BchNaxne 

IMPORT 

FROM 

RFAName 

IMPORT 

FROM 

ShpName 

IMPORT 

FROM 

LtName 

IMPORT 

FROM 

BchName 

IMPORT 

FROM 

RFAName 

IMPORT 

FROM 

WriteLine 

IMPORT 

FROM 

SLCP 

IMPORT 

FROM 

Convert 

IMPORT 

FROM 

RepMngr 

IMPORT 


RefuelTypeRecType; 
MasterShipNameList; 
MasterLighterNameList 
MasterBeachNameList; 
MasterRefuelNameList; 
ShipNameRecType; 
LighterNameRecType; 
BeachNaxneRecType ; 

RefuelNameRecType; 
WriceLine; 

Wait ForShipQueue; 
LighterNameTypeToStr; 
RepManager; 


OBJECT ObjectBuilderObj; 


{ 

ASK METHOD BuildObjects; 

{ 

BEGIN 


NEW(ShipBuilder); 

ASK ShipBuilder TO BuildShips; 

NEW{LighterBuilder); 

ASK LighterBuilder TO BuildLighters; 

NEW(BeachBuilder); 

ASK BeachBuilder TO BuildBeaches; 


NEW(FiaelAreaBuilder) ; 

ASK FuelAreaBuilder TO BuildFuelAreas; 







END METHOD; 


END OBJECT; 


OBJECT ShipBuilderObj; 

{ } 

ASK METHOD BuildShips; 

{ } 


VAR 

Rec : ShipTypeRecType; 
RORO : RoRoObj; 

BEGIN 


NEW(Rec); 

NEW(RORO); 

Rec := ASK MasterShipTypeList First(); 

{ 

WriteLine("Building ship " + Rec.ShipTypeName); 

WriteLine(" "); 

} 

WHILE Rec <> NILREC 

ASK RoRo TO GetShipSetup(Rec.ShipTypeName, Rec.TypeShip, 

Rec.DistanceFromBLCP, 

Rec.NumOfSpots, Rec.SpotArray, 
Rec. N\imOf LoLoVehicles, 

Rec. NvunOf RRDFVehicles, 

Rec. NtunOfAnySpotvehicles) ; 

Add(RORO) ; 
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NBW(RORO); 

Rec := ASK MasterShipTypeList Next(Rec); 
END WHILE; 

END METHOD; 


END OBJECT; 


OBJECT LighterBuilderObj; 

{ } 

ASK METHOD BuildLighters; 

{ } 


VAR 

Rec : LighterTypeRecType; 

Lighter : LighterObj; 

BEGIN 

{ 

WriteLine("Building Lighter "); 

WriteLine(" "); 

} 

NEW(Rec); 

NEW(WaitForShipQueue); 

NEW(Lighter); 

Rec := ASK MasterLighterTypeList First(); 

WHILE Rec <> NILREC 

ASK Lighter TO GetLighterSetup{Rec.ID, 

Rec,LighterTypeName, 
Rec.SpotRequired, Rec.SpeedMax, 
Rec.SpeedFull, Rec.MaxLoad, 
Rec.FuelCap, Rec.BurnRate, 
Rec.MinFuel) ; 
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Add(Lighter) ; 

ASK waitForShipQueue TO Add(Lighter); 


{ 

WriteLine {"Nximber in ship Q is " + 

INTTOSTR(ASK WaitForShipQueue numberln) + " 
Lighter Nanie= " + 

LighterNameTypeToStr(ASK Lighter 
LighterTypeName) 

+ " LighterlD = " + ASK Lighter LighterlD); 

} 

NEW(Lighter); 

Rec ;= ASK MasterLighterTypeList Next(Rec); 

END WHILE; 


END METHOD; 
END OBJECT; 


OBJECT BeachBuilderObj; 

{ ) 

ASK METHOD BuildBeaches; 

{ } 


VAR 

Rec : BeachTypeRecType; 

Beach : BeachObj; 

BEGIN 

{ 

WriteLine("Building Beach "); 
WriteLine(" "); 

} 
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NEW(Rec); 

NEW(Beach); 

Rec := ASK MasterBeachTypeList First(); 

WHILE Rec <> NILREC 

ASK Beach TO GetBeachSetup(Rec.ID, Rec.BeachTypeName, 

Rec.NumOfSpots, Rec.SpotArray, 
Rec.DistanceFromSLCP, 
Rec.DistBeachToArea) ; 

Add(Beach); 


NEW(Beach) ; 

Rec := ASK MasterBeachTypeList Next(Rec); 
END WHILE; 

END METHOD; 


END OBJECT; 


OBJECT FuelAreaBuilderObj; 

{ } 

ASK METHOD BuildPuslAreas; 

{ } 


VAR 

Rec : RefuelTypeRecType; 

RefuelArea : RefuelAreaObj; 

BEGIN 

{ 

WriteLine("Building RefuelArea "); 
WriteLine(" "); 

} 
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NEW(Rec); 

NBW(RefuelArea); 

Rec := ASK MasterRefuelTypeList First(); 

WHILE Rec <> NILREC 

ASK RefuelArea TO GetRefuelAreaSetup(Rec.AreaTypeNaine, 

Rec.NumOfSpots, 

Rec.DistAreaToShip, 

Rec.SpotArray, Rec.FuelPumpRate); 
Add(RefuelArea); 


NEW(RefuelArea); 

Rec := ASK MasterRefuelTypeList Next(Rec); 
END WHILE; 

END METHOD; 

END OBJECT; 

END MODULE. 


DEFINITION MODULE RepMngr; 

{ 

Module Name: RepMngr 
Author: M. Bailey 
Prof. NPG 


Last Modified: 26 Jul 93 
Modified By: J. S. Noel 
Lt. USN 


DESCRIPTION: Defines the replication manager ( RejMngrObj) 
for initialization and operation of the simulation. 


} 


TYPE 

RepMngrObj = OBJECT 

MaxNumberOfReps : INTEGER; 
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Iteration 

Done 

OutputToScreen 

SeedAlfa 

SeedBravo 


INTEGER 

BOOLEAN 

BOOLEAN 

INTEGER 

INTEGER 


ASK METHOD 
ASK METHOD 
ASK METHOD 
ASK METHOD 
ASK METHOD 


Objinit; 
ChangeRunParms; 
Prep For Rep.- 
Replicate ; 

ResetForNextRun; 


END OBJECT; 


VAR 


RepManager : RepMngrObj; 
END MODULE. 


IMPLEMENTATION MODULE RepMngr; 

{ 

Module Name; RepMngr 
Author: M. Bailey 

Prof. NPG 


Last Modified: 26 Jul 93 
Modified By: J. S. Noel 
Lt. USN 


DESCRIPTION: Implements the replication manager 

( RepMigrObj) for initialization and operation of the 
simulation. 


FROM WriteLine IMPORT WriteLine; 


FROM SimMod 
FROM CRTMod 
FROM lOMod 
FROM Ship 
FROM SLCP 
FROM BLCP 


IMPORT StartSimulation, 
IMPORT ClearScreen; 
IMPORT ReadKey; 

IMPORT RoRoObj; 

IMPORT SLCP; 

IMPORT BLCP; 


} 


ResetSimTime; 
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PROM FuelCP IMPORT FuelCP; 

PR<»i Builder IMPORT ShipBuilder; 

PROM Stats IMPORT Stats; 

PRC»4 Global IMPORT RandTimel,RandTime2; 

OBJECT RefMngrObj; 

{ } 

ASK METHOD Objinit; 

{ } 


BEGIN 

MaxNumberOfReps := l; 
Iteration := 0; 

Done := PALSE; 
OutputToScreen := PALSE; 
SeedAlfa := 123456; 
SeedBravo := 678912; 


END METHOD; 


{. ) 

ASK METHOD ChangeRunParms; 

{ } 

VAR 

Ch : CHAR; 

Seedl : INTEGER; 

Seed2 : INTEGER; 

BEGIN 

ClearScreen; 

OUTPUT;OUTPUT; 

OUTPUT("?????????????????????????????????????????????????»); 
OUTPUT;OUTPUT; 
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OUTPUT("The number of replications desired is 
OUTPUT; OUTPUT; 

OUTPUT(•?????????????????????????????????????????????????") 
OUTPUT;OUTPUT; 

INPUT(MaxNumberOfReps); 


ClearScreen; 

OUTPUT;OUTPUT; 

OUTPUT("?????????????????????????????????????????????????") 
OUTPUT;OUTPUT; 

OUTPUT("DO you want output displayed on the screen?"); 
OUTPUT;OUTPUT; 

OUTPUT("?????????????????????????????????????????????????") 
OUTPUT;OUTPUT; 

Ch := ReadKey(); 

IF (Ch = 'y') OR (Ch = 'Y') OR (Ch = ’f) OR (Ch = 'T') 
OutputToScreen := TRUE; 

END IF; 


ClearScreen; 

OUTPUT;OUTPUT; 

OUTPUT("?????????????????????????????????????????????????") 
OUTPUT;OUTPUT; 

OUTPUT("Do you want to input seeds?"); 

OUTPUT;OUTPUT; 

OUTPUT("?????????????????????????????????????????????????") 


OUTPUT;OUTPUT; 

Ch := ReadKey(); 

IF (Ch = 'y') OR (Ch = 'Y') OR 
OUTPUT("Input seed number l. 
INPUT(SeedAlfa); 

OUTPUT("Input seed number 2. 
INPUT(SeedBravo); 


(Ch = 
MUST 

MUST 


t') OR (Ch 
BE INTEGER 

BE INTEGER 


= 'T' ) 
") ; 

") ; 


END IF; 

NEW(RandTimel); 
NEW(RandTime2); 
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ASK RandTimel TO SetSeed(SeedAlfa); 
ASK RandTline2 TO SetSeed(SeedBravo) ; 

END METHOD ; 


{ } 

ASK METHOD Replicate; 

{ } 

VAR 

RORO : RoRoObj; 

BEGIN 

FOR Iteration := l TO MaxNvimberOfReps 
ResetSimTime(0.0); 

writeLine("_replication " + inttostr{ iteration) + 

" _ ") ; 

ASK SELF TO PrepForRep; 

ASK SELF TO ResetForNextRun; 

IF (Iteration = MaxNumberOfReps) 

Done := TRUE; 

writeLine("//RepManager// Done = TRUE"); 

END IF; 

OUTPUT("Simulation cloclc started."); 

WriteLine("_CLOCK STARTS FOR REP " + 

INTTOSTR(Iteration) + "_"); 

StartSimulation; 


WriteLine ("_CLOCK STOPS FOR REP " + 

INTTOSTR(Iteration) + "_"); 

END FOR; 

END METHOD; 
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{ 

ASK METHOD PrepForRep; 

{ 


} 

} 


BEGIN 

IF { Iteration = i ) 
NEW(SLOP); 
NEW(BLCP); 
NEW(PuelCP) ; 

NEW(Stats) ; 

END IF; 


END METHOD; 

{ } 

ASK METHOD ResetForNextRun; 

{ } 

VAR 

RoRo : RoRoObj; 

BEGIN 

writeLine("-Reset For Next Run-") ; 


IF { NOT Done ) 

RoRo := ASK ShipBuilder First(); 
WHILE RoRo <> NILOBJ 

ASK RoRo TO StartTheShow; 

RoRo := ASK ShipBuilder Next(RoRo); 
END WHILE; 

END IF; 
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END METHOD; 


END OBJECT; 
END MODULE. 


DEFINITION MODULE Global; 

{ 


Module Name: Global Last Modified: 18 Jun 93 

Author: J. S. Noel 

Lt. USN 


DESCRIPTION: Defines Global types used in the simulation. 


FROM RandMod IMPORT RandomObj; 


} 


TYPE 

SpotType = (LCU, CWF, LoLo); 

SpotRecType = RECORD 

SpotClassification : SpotType; 

SpotFree : BOOLEAN; 

TotalIdleTime : REAL; 

END RECORD; 

RefuelSpotRecType = RECORD 

RefuelSpotFree : BOOLEAN; 

END RECORD; 

SpotidleTimeRecType = RECORD 
StartTime : REAL; 

EndTime : REAL; 

END RECORD; 
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NameRecType = RECORD 
Name : STRING; 

END RECORD; 

SpotldleTimeArrayVype = ARRAY INTEGER OF 

SpotIdleTimeRecType; 


FileNameType = STRING; 

DestinationType = (Ship, Bch, Fuel, RefuelFromBeach, 

ShipFromRefuel); 

SeedArrayType = ARRAY INTEGER OF INTEGER, 


VAR 

RandTimel : RandomObj; 
RandTime2 ; RandomObj; 

END MODULE. 


IMPLEMENTATION MODULE Global; 

{. 


Module Name: Global Last Modified: 18 Jun 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: iirplements Global types used in the simulation. 

} 

{ The functioning components of Global ar in the Definition 
Module.} 


END MODULE. 







DEFINITION MODULE Ship; 

{ 

Module Ncune: Ship Last Modified: 18 Jun 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines a RoRo (Ship) object. 

} 

FROM ShpList IMPORT SpotArrayType; 

FROM Global IMPORT SpotIdleTimeArrayType, SpotType; 

FROM Lighter IMPORT LighterObj; 

TYPE 

ShipTypeType = (SSR, NSSR); 

RoRoObj = OBJECT 

ShipName 
ShipType 

DistanceFromBLCP 
NumSpots 
ShipSpot 
NuitiLoLoVehic 1 e s 
NumRRDFVehicles 
NiomAnySpotVehicles 
PerraNumLoLo 
PentiNumRRDF 
PermNumAnySpot 

Loadsize 

ShipSpotidleTime 
LastLoad 

ASK METHOD Objinit; 

ASK METHOD StartTheShow; 

ASK METHOD GetShipSetup(IN Name : STRING; 

IN Type : ShipTypeType; 

IN Numl : REAL; 


STRING; 

ShipTypeType; 

REAL; 

INTEGER; 

SpotArrayType; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

SpotIdleTimeArrayType; 
BOOLEAN; 
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IN Num2 : INTEGER; 

IN Array : SpotArrayType; 
IN Num3 : INTEGER; 

IN Nuin4 : INTEGER; 

IN NumS : INTEGER) ; 


ASK METHOD 

ASK METHOD 

ASK METHOD 
ASK METHOD 

ASK METHOD 
ASK METHOD 


LogidleShipSpotTime(IN index : INTEGER; 

IN InOutSpotTime : REAL; 
IN SpotIdie ; BOOLEAN); 
MakeLoad(IN Lighter : LighterObj; 

IN index : INTEGER); 

SetSpotFree(IN index : INTEGER); 

CheckSpots(IN SpotTyp : SpotType; 

OUT SpotAvail : BOOLEAN; 

OUT index : INTEGER); 

OccupySpot(IN index : INTEGER); 

ResetShipStats; 


END OBJECT; 

VAR 

RoRo : RoRoObj; 


END MODULE. 


IMPLEMENTATION MODULE Ship; 

{ 

Module Name: Ship Last Modified: 18 Jun 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Implements a RoRo (Ship) object. 

} 

PROM ShpList IMPORT SpotArrayType; 

FROM Global IMPORT ALL SpotType, SpotRecType, 

ALL SpotIdleTimeRecType; 

IMPORT SimTime; 


FROM SimMod 







FROM SLOP IMPORT SLOP; 

PROM Lighter IMPORT LighterObj; 

FROM WriteLine IMPORT WriteLine; 

PROM Convert IMPORT BooleanToStr, SpotTypeToStr; 

OBJECT RoRoObj; 

{ 

ASK METHOD Objinit; 

{ 

BEGIN 

LastLoad := FALSE; 

END METHOD; 


{ 

ASK METHOD StartTheShow; 

{ 


VAR 

i : INTEGER; 

BEGIN 

FOR i := 1 TO HIGH(ShipSpot) 

{ 


} 


WriteLine("SpotFree for spot " + INTTOSTR(i) + " is " + 
BooleanToStr(ShipSpot[i].SpotFree)); 


ASK SLCP TO GetLighter(ShipSpot[i].SpotClassification, i 
SELF); 

END FOR; 


END METHOD; 






} 


{ 

ASK METHOD GetShipSetup(IN Name : STRING; 

IN Type : ShipTypeType; 

IN Nximl : REAL; 

IN Num2 : INTEGER; 

IN Array : SpotArrayType; 

IN N\im3 : INTEGER; 

IN Num4 : INTEGER; 

IN NxunS : INTEGER) ; 

{ } 

VAR 

i : INTEGER; 

Rec : SpotidleTimeRecType; 

BEGIN 

ShipName := Name; 

{ 

WriteLine("//GetShipSetup// ShipName = " + ShipName); 

} 

ShipType := Type; 

DistanceFromBLCP : Numl; 

NumSpots := Num2; 

NEW(ShipSpot, 1..NumSpot s); 

ShipSpot := Array; 

{ 

WriteLine (ShipName + " Spot " + INTTOSTRd) + " SpotType " + 
SpotTypeToStr(ShipSpot[1].SpotClassification)); 

} 


NumLoLoVehicles := 
NiomRRDFVehicles : = 
N\jmAnySpotVehicles 


Num3 ; 
N\im4; 

:= Num5; 
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NEW(ShipSpotIdleTime, l..NumSpots); 

FOR i := 1 TO NumSpots 

ShipSpot[i].TotalldleTime := 0.0; 

NEW(Rec); 

Rec.StartTime := 0.0; 

Rec.EndTime := 0.0; 
ShipSpotIdleTime[i] := Rec; 

END FOR; 

PermNumLoLo := NumLoLoVehicles; 
PermNumRRDF := NiimRRDFVehicles; 
PermNumAnySpot := NumAnySpotVehicles; 


END METHOD; 


ASK METHOD LogIdleShipSpotTime(IN index : INTEGER; 

IN InOutSpotTime : REAL; 
IN Spotidle : BOOLEAN); 


BEGIN 

{ 

WriteLine{"LogIdleSpotTime fired on " + ShipName); 

} 

IF Spotidle 

ShipSpotIdleTime[index].StartTime := InOutSpotTime; 

{ 

WriteLine("Spot " + INTTOSTR(index) + " Idle at " + 
REALTOSTR(InOutSpotTime)); 

WriteLine(" "); 

} 
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ELSE 

ShipSpotidleTime[index].EndTime := InOutSpotTime; 

{ 

WriteLine("Spot " + INTTOSTR(index) + " Occupied at " + 

REALTOSTRdnOutSpotTirr-^) ) ; 

WriteLine(" "); 

} 


ShipSpot[index].TotalidleTime := 

ShipSpot[index].TotalldleTime + 
(ShipSpotidleTime[index].EndTime - 
ShipSpotidleTime[index].StartTime); 


END IF; 

END METHOD; 


} 


} 

VAR 

LoadSize : INTEGER; 

BEGIN 

{ 

WriteLine("MakeLoad fired for spot " + INTTOSTR{index) + 

" on " + ShipName ); 

} 

ASK SELF TO OccupySpot(index); 

LoadSize := ASK Lighter MyLoadSize; 

IF ( ShipSpot[index].SpotClassification = LoLo ) 

IF ( NumLoLoVehicles > 0 ) 


{ 

ASK METHOD MakeLoad(IN Lighter : LighterObj; 

IN index : INTEGER); 

{ 
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IF ( NumLoLoVehicles < LoadSize ) 

LoadSize := LoadSize - NumLoLoVehicles; 
NumLoLoVehicles 0; 

IF ( NxunAnySpocVehicles > 0 ) 

IF ( NunAnySpotVehicles < LoadSize ) 

NumAnySpotVehicles := 0; 

LasCLoad := TRUE; 

ASK SLCP TO SetShipStatus; 

ASK Lighter TO SetLoadStatus(LastLoad, SELF); 
ELSE { NumAnySpotVehicles > LoadSize } 

NumAnySpotVehicles := NumAnySpotVehicles - 

LoadSize; 

END IF; 

ELSE { NumAnySpotVehicles = 0 } 

LastLoad := TRUE; 

ASK SLCP TO SetShipStatus; 

ASK Lighter TO SetLoadStatus(LastLoad, SELF); 

END IF; 

ELSE { NumLoLoVehicles > LoadSize } 

NumLoLoVehicles := NumLoLoVehicles - LoadSize; 

END IF; 

ELSE { NumLoLoVehicles = 0 } 

IF ( NumAnySpotVehicles > 0 ) 

IF ( NumAnySpotVehicles < LoadSize ) 
NumAnySpotVehicles := 0; 

LastLoad := TRUE; 

ASK SLCP TO SetShipStatus; 

ASK Lighter TO SetLoadStatus(LastLoad, SELF); 
ELSE { NumAnySpotVehicles > LoadSize } 

NumAnySpotVehicles := NumAnySpotVehicles - 

LoadSize; 

END IF; 

ELSE { NumAnySpotVehicles = 0 } 
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LastLoad := TRUE; 

ASK SLOP TO SetShipStatus; 

ASK Lighter TO SetLoadStatus(LastLoad, SELF); 

END IF; 

END IF; 

ELSE { ShipSpot[index].SpotClassification = LCU or CWF } 

IF ( NiimRRDFVehicles > 0 ) 

IF { NumRRDFVehicles < LoadSize ) 

LoadSize := LoadSize - NumRRDFVehicles; 
NtunRRDFVehicles := 0; 

IF ( NumAnySpotVehicles > 0 ) 

IF { NxunAnySpotVehicles < LoadSize ) 
NximAnySpotVehicles := 0; 

LastLoad := TRUE; 

ASK SLOP TO SetShipStatus; 

ASK Lighter TO SetLoadStatus(LastLoad, SELF); 
ELSE { NumAnySpotVehicles > LoadSize } 

NumAnySpotVehicles : = NxamAnySpotVehicles - 

LoadSize; 

END IF; 

ELSE { NumAnySpotVehicles = 0 } 

LastLoad := TRUE; 

ASK SLOP TO SetShipStatus; 

ASK Lighter TO SetLoadStatus(LastLoad, SELF); 

END IF; 

ELSE 

NumRRDFVehicles := NiamRRDFVehicles - LoadSize; 

END IF; 

ELSE { NumRRDFVehicles = 0 } 

IF ( NiimAnySpotVehicles > 0 ) 

IF ( NumAnySpotVehicles < LoadSize ) 
NumAnySpotVehicles := 0; 
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LastLoad := TRUE; 

ASK SLCP TO SetShipStatus; 

ASK Lighter TO SetLoadStatus(LastLoad. SELF); 
ELSE { NxunAnySpotVehicles > Loadsize } 

NumAnySpotVehicles := NumAnySpotVehicles - 

Loadsize; 

END IF; 

ELSE { NumAnySpotVehicles = 0 } 

LastLoad := TRUE; 

ASK SLCP TO SetShipStatus; 

ASK Lighter TO SetLoadstatus(LastLoad, self); 

END IF; 

END IF; 

END IF; 

{ 

WriteLine("NumLoLoVehicles = " + INTTOSTR(NumLoLoVehicles)); 
WriteLine("NiimRRDFVehicles = " + INTTOSTR(NumRRDFVehicles)) ; 
WriteLine("NumAnySpotVehicles = " + 

INTTOSTR(NumAnySpotVehicles)); 

} 

TELL Lighter TO OnLoad(SELF); 

END METHOD; 


ASK METHOD SetSpotFree(IN index : INTEGER); 


VAR 

Idle : BOOLEAN; 

BEGIN 

{ 

WriteLine("SetSpotFree fired for spot " + INTTOSTR(index) + 
" on " + ShipName ); 






IF ( NOT LastLoad ) 

ShipSpot[index].SpotFree := TRUE; 

Idle := ShipSpot[index].SpotFree; 

ASK SLOP TOGetLighter(ShipSpot[index].SpotClassification, 

index, SELF) ; 

END IF; 

ASK SELF TO LogidleShipSpotTime(index, SimTimeO, Idle); 


END METHOD; 

{ } 

ASK METHOD Chec)cSpOtS (IN SpotTyp : SpotType; 

OUT SpotAvail : BOOLEAN; 

OUT index : INTEGER); 

{ } 

VAR 

i : INTEGER; 


BEGIN 

{ 

WriteLine("CheckSpots Fired on " + ShipName); 

} 

SpotAvail := FALSE; 

FOR i := 1 TO HIGH(ShipSpot) 

IF (ShipSpot[i].SpotClassification = SpotTyp) AND 
(ShipSpot[i].SpotFree) 

SpotAvail := TRUE; 
index := i; 

ShipSpot[i].SpotFree := FALSE; 

EXIT; 

END IF; 

END FOR; 
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END METHOD; 


{ 

ASK METHOD OccupySpot(IN index ; INTEGER); 

{ 

VAR 

Idle : BOOLEAN; 

BEGIN 

{ 

WriteLine("Occupy spot fired in RoRo " + ShipName); 

} 


ShipSpot[index].SpotFree := FALSE; 

Idle := ShipSpot[index].SpotFree; 

ASK SELF TO LogIdleShipSpotTime(index, SimTimeO, Idle); 
END METHOD; 

{ 

ASK METHOD ResetShipStatS; 

{ 

VAR 

i : INTEGER; 

BEGIN 

{ 

WriteLine("ResetShipStats fired on " + ShipName); 

} 

FOR i := 1 TO HIGH(ShipSpot) 

ShipSpot[i].SpotFree := TRUE; 








ShipSpotli].TotalldleTime := 0.0; 
ShipSpotIdleTime[i].StartTime := 0.0; 
ShipSpotIdleTime[i].BndTime := 0.0; 
END FOR; 

NumLoLoVehicles := PermNumLoLo; 
NximRRDFVehicles : = PermNximRRDF; 
NumAnySpotVehicles := PermNxaxnAnySpot; 

LastLoad := FALSE; 

END METHOD; 


END OBJECT; 
END MODULE. 


DEFINITION MODULE SLCP; 

{ 

Module Name: SLCP Last Modified: 18 Jun 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines the Ships Lighterage Control Point 
Object (SLCPObj) . After a Lighter CastsaxidClears the ship 
it asks the RoRoObj to SetSpotFree. This method fires the 
GetLighter method in SLCPObj. SLCPObj then pops the first 
appropriate lighter off of theAwaitingShipQueue and directs 
the lighter to ApproachAndMoor to the RRDF, where the 
onload of vehicles can begin. 


PROM GrpMcd IMPORT QueueObj; 
FROM Global IMPORT SpotType; 
FROM Lighter IMPORT LighterObj; 
FROM Ship IMPORT RoROOb j ; 

TYPE 
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ShipDoneRecType = RECORD 
ShipDone : BOOLEAN; 

END RECORD; 

ShipDoneArrayType = ARRAY INTEGER OF ShipDoneRecType; 

AwaitingShipQueueObj = OBJECT(QueueObj[ANYOBJ: LighterObj]) 
END OBJECT; 

SLCPObj = OBJECT 

NvunLighter : INTEGER; 

NumShip : INTEGER; 

ShipStatusindex : INTEGER; 

ShipsDone : ShipDoneArrayType; 

AllDone : BOOLEAN; 

ASK METHOD Objinit; 

ASK METHOD SetShipStatus; 

ASK METHOD GetSpotClN Lighter : LighterObj); 

ASK METHOD GetLighter(IN Spot : SpotType; 

IN index : INTEGER; 

IN RORO : RoRoObj); 

ASK METHOD ResetSLCP; 

END OBJECT; 

VAR 

WaitForShipQueue : AwaitingShipQueueObj; 

SLCP : SLCPObj; 

END MODULE. 
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IMPLEMENTATION MODULE SLOP; 


{ 

Module Name: SLOP Last Modified: 18 Jun 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Implements a Ship Lighter Control Point (SLCP) 


object. 

} 

FROM Global IMPORT ALL SpotType, ALL DestinationType; 

FROM Lighter IMPORT LighterObj; 

FROM Ship IMPORT RoRoOb j ; 

FROM SimMod IMPORT SimTime; 

FROM Builder IMPORT ShipBuilder; 

FROM WriteLine IMPORT WriteLine; 

FROM Convert IMPORT LighterNameTypeToStr; 

FROM Stats IMPORT Stats; 

FROM Builder IMPORT ShipBuilder, LighterBuilder; 

FROM BLCP IMPORT WaitForBeachQueue; 

OBJECT SLCPObj; 

{ } 

ASK METHOD Objinit; 

{ } 

VAR 


i : INTEGER; 

Rec : ShipDoneRecType; 

BEGIN 

AllDone := FALSE; 

ShipStatusindex := 1; 

NumLighter := ASK LighterBuilder numberin; 
NumShip := ASK ShipBuilder numberin; 
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NEW(Rec); 

NEW(ShipsDone, l..NumShip); 
FOR i := 1 TO HIGH(ShipsDone) 
NEW(Rec); 

Rec.ShipDone := FALSE; 
ShipsDone[i] := Rec; 

END FOR; 

END METHOD; 


{ 

ASK METHOD SetShipStatus; 

{ 

VAR 

i : INTEGER; 

RORO : RoRoObj; 

BEGIN 

ShipsDone[ShipStatusindex].ShipDone := TRUE; 

IF ( ShipStatusindex = NumShip ) 

AllDone := TRUE; 

IF { AllDone ) AND ( ASK WaitForShipQueue numberin = 

NumLighter ) 

WriteLine{"—Last Lighter in the Q, Dumping 
Stats.-"); 

RoRo := ASK ShipBuilder First{); 

WHILE RoRo <> NILOBJ 

FOR i := 1 TO (ASK RoRo NumSpots) 

ASK RoRo TO LogIdleShipSpotTime(i,SimTime(),FALSE) 

END FOR; 


RoRo := ASK ShipBuilder Next(RoRo); 





END WHILE; 


ASK Stats TO DiimpStats (SxmTime ()) ; 
ELSE 

iNC(ShipStatuslndex); 

END IF; 

END METHOD; 


( } 

ASK METHOD GetSpot(IN Lighter : LighterObj); 

{ } 

VAR 

SnotReq : SpotType; 

i : INTEGER; 

index : INTEGER; 

SpotAvail : BOOLEAN; 

Login : BOOLEAN; 

QType : BOOLEAN; 

RoRo : RoRoObj; 

Dest : DestinationType; 

BEGIN 

{ 

WriteLine("GetSpot Fired in SLCP "); 

} 

SpotAvail := FALSE; 

SpotReq := ASK Lighter LighterSpot; 

Dest := Ship; 

RoRo := ASK ShipBuilder First(); 

WHILE RoRo <> NILOBJ 
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IF ( ASK RoRo LastLoad ) 

RoRo ;= ASK ShipBuilder Next(RoRo); 

ELSE 

ASK RoRo TO CheckSpots(SpotReq, SpotAvail, i); 

IF SpotAvail 

TELL Lighter TO ApproachAndMoor(i, Dest, RoRo); 
EXIT; 

ELSE 

RoRo := ASK ShipBuilder Next(RoRo); 

END IF; 

END IF; 

END WHILE; 

IF ( NOT SpotAvail ) 

ASK WaitForShipQueue TO Add(Lighter); 

Login := TRUE; { adding to Q } 

QType := TRUE; { Q type = ship } 

ASK Lighter TO LogQueueTime(SimTime(), Login, QType); 
END IF; 


IF ( AllDone ) AND ( ASK WaitForShipQueue numberln = 

NiiniLighter ) 

WriteLine("—Last Lighter in the Q, Dumping 
Stats.-") ; 

RoRo := ASK ShipBuilder First(); 

WHILE RORO <> NILOBJ 

FOR i := 1 TO (ASK RoRo NumSpotS) 

ASK RoRo TO LogIdleShipSpotTime(i,SimTime(),FALSE) 
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END FOR; 


RoRo := ASK ShipBuilder Next(RoRo); 
END WHILE; 


ASK Stats TO DumpStats(SimTime(>); 
END IF; 


} 


} 


VAR 


Lighter 

: LighterObj; 

Login 

: BOOLEAN; 

QType 

: BOOLEAN; 

Dest 

: DestinationType; 

BEGIN 



{ 

WriteLine{"GetLighter Fired in SLCP. Index = " + 
INTTOSTR(index)); 

} 

Dest := Ship; 

{ 

WriteLine("Number in ship Q At SLCP is " + 

INTTOSTR(ASK WaitForShipQueue numberIn)); 

} 


END METHOD; 

{ 

ASK METHOD GetLighter(IN Spot : SpotType 

IN index : INTEGER 
IN RoRO : RoRoObj) 

{ 
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Lighter := ASK WaitPorShipQueue First(); 

{if Spot available is a LoLo spot then take the first 
available from the queue, ELSE, the lighter SpotType must 
match the SpotType available for mooring to the RRDF.} 

IF ( Spot = LoLo ) 

IF Lighter <> NILOBJ 

ASK waitForShipQueue TO RemoveThis(Lighter); 

Login ;= FALSE; { Not entering ship Q } 

QType := TRUE; { Q type = Ship } 

ASK Lighter TO LogQueueTime{SimTime(),LogIn,QType); 
TELL Lighter TO ApproachAndMOor(index, Dest, RoRo); 

END IF; 

ELSE 

WHILE Lighter <> NILOBJ 

IF ( ASK Lighter LighterSpot = Spot ) 

ASK WaitForShipQueue TO RemoveThis(Lighter); 

Login := FALSE; { Not entering ship Q } 

QType := TRUE; { Q type = ship } 

ASK Lighter TO LogQueueTime(SimTime(),Login,QType); 
TELL Lighter TO ApproachAndMoor(index, Dest, RoRo); 
EXIT; 

END IF; 

Lighter := ASK WaitForShipQueue Next(Lighter); 

END WHILE; 

END IF; 


END METHOD; 
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ASK METHOD ResetSLCP; 


{ } 

VAR 

i : INTEGER; 

BEGIN 

AllDone ;= FALSE; 

ShipStatusindex := i; 

FOR i := 1 TO HIGH(ShipsDone) 

ShipDone[i].ShipDone := FALSE; 

END FOR; 

END METHOD; 

END OBJECT; 

END MODULE. 


DEFINITION MODULE Lighter; 

{ 

Module Name: Lighter Last Modified: 17 Jul 93 

Author; J. S. Noel 
Lt. USN 

DESCRIPTION: Defines a Lighter (Smallcraft or boat) object. 

} 

FROM Global IMPORT SpotType, DestinationType; 

FROM Ship IMPORT RoRoObj; 
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TYPE 


LighterNameType = (LCU1466 ,LCU1610, LCU2000, CWFii, CWF21, 

CWF31, LSV); 

LighterObj = OBJECT 


LighterTypeName 

LighterlD 

LighterSpot 

MaxSpeed 

FullLoadSpeed 

MyLoadSize 

ShipiD 

FuelCapacity 
CurrentFuel 
FuelBurnRate 
MinFuel 

MinFuelPercent 

TransitDistance 
TimelnShipQueue 
TimeInBeachQueue 
TimeToTotalOf fload 
LoadStatus 
ShipSpotIndex 
BeachSpotIndex 
RefuelSpotIndex 

InshipQTime 

OutShipQTime 

inBeachQTime 

OutBeachQTime 


LighterNameType; 
STRING; 

SpotType; 

REAL; 

REAL; 

INTEGER; 

RoRoObj; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

BOOLEAN; 

INTEGER; 

INTEGER; 

INTEGER; 

REAL; 

REAL; 

REAL; 

REAL; 
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ASK METHOD Objinit; 

ASK METHOD GetLighterSetupdN ID : 

IN Name 
IN Sp : 
IN Numl 
IN Num2 
IN Num3 
IN N\im4 
IN NxJunB 
IN Num6 


STRING; 

: LighterNameType; 
SpotType; 

: REAL; 

: REAL; 

: INTEGER; 

: REAL; 

: REAL; 

: REAL) ; 


ASK METHOD LogQueueTime(IN InOutQTime : REAL; 

IN EnterQ : BOOLEAN; 

IN ShipQ : BOOLEAN); 

ASK METHOD SetLoadStatuS{IN Status : BOOLEAN; 

IN Vessel : RoRoObj); 
ASK METHOD BurnFuel(IN BurnTime : REAL); 

ASK METHOD ResetLighterStats; 


TELL METHOD 

TELL METHOD 
TELL METHOD 

TELL METHOD 

TELL METHOD 
TELL METHOD 

END OBJECT; 


ApproachAndMoor(IN index : INTEGER; 

IN Dest : DestinationType; 
IN Obj : ANYOBJ); 

OnLoad(IN RoRo : RoRoObj); 

CastAndClear{IN Berth : DestinationType; 

IN Obj : ANYOBJ); 

TransitTodN Dest : DestinationType; 

IN Obj : ANYOBJ); 

OffLoaddN Obj : ANYOBJ); 

Refuel(IN Obj : ANYOBJ); 


VAR 


Lighter : LighterObj; 
END MODULE. 


163 







IMPLEMENTATION MODULE Lighter; 


Module Name: Lighter Last Modified: 18 Jun 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: In^lements a Lighter (Boat) object. 

} 

FROM MathMod IMPORT EXP; 

FROM Ship IMPORT RoRoObj, ALL ShipTypeType; 

FROM Beach IMPORT BeachObj; 

FROM Refuel IMPORT RefuelAreaObj, RefuelArea; 

FROM SLCP IMPORT SLCP; 

FROM BLCP IMPORT BLCP; 

FROM FuelCP IMPORT FuelCP; 

FROM SimMod IMPORT SimTime; 

FROM Global IMPORT ALL DestinationType, ALL SpotType; 

FROM Stats IMPORT Stats; 

FROM writeLine IMPORT writeLine; 

FROM Convert IMPORT LighterNameTypeToStr, BeachTypeToStr; 

FROM RepMngr IMPORT RepManager; 


OBJECT LighterObj; 

{ } 

ASK METHOD ObjInit; 

{ } 

BEGIN 

TimelnShipQueue := 0.0; 

TimeinBeachQueue := 0.0; 

inShipQTime := 0.0; 

OutShipQTime := 0.0; 

InBeachQTime := 0.0; 

OutBeachQTime := 0.0; 
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TimeToTotalOffload := 0.0; 
LoadStatUS := FALSE; 
ShipSpotIndex := 0; 
BeachSpotIndex := 0; 

RefuelSpotIndex := 0; 
TransitDistance := 0.0; 


END METHOD; 

{ } 

ASK METHOD GetLighterSetup(IN ID : STRING; 

IN Name : LighterNameType; 

IN Sp : SpotType; 

IN Numl : REAL; 

IN Niun2 : REAL; 

IN Niim3 : INTEGER; 

IN Num4 ; REAL; 

IN Num5 : REAL; 

IN N\lin6 : REAL) ; 


{ } 

BEGIN 

LighterlD ;=ID; 

LighterTypeName : =Naiue; 

LighterSpot :=Sp; 

{ 


WriteLine{"//GetLighterSetup// LighterTypeName = " + 
LighterNameTypeToStr(LighterTypeName) + 

" LighterlD = " + LighterlD); 

} 

MaxSpeed : =Nvimi ; 

FullLoadSpeed :=Num2; 

MyLoadSize :=Num3; 
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PuelCapacity :=Num4; 

FuelBurnRate : =N\im5 ; 

MinFuel Percent :=N\im6; 

CurrentFuel := FuelCapacity; 

MinFuel := FuelCapacity * MinFuelPercent; 
WriteLine(" MinFuel = " + REALTOSTR(MinFuel)); 


END METHOD; 

} 


} 

BEGIN 

{ 

WriteLine("LogQueueTime fired on " + 

LighterNameTypeToStr(LighterTypeName) + 

"LighterID = " + LighterID); 

} 


{ 

ASK METHOD LogQueueTime(IN inOutQTime : REAL; 

IN EnterQ : BOOLEAN; 
IN ShipQ : BOOLEAN); 

{ 


IF (EnterQ) AND (ShipQ) 

InShipQTime := 0.0; 

InShipQTime := InOutQTime; 

ELSIF (NOT EnterQ) AND (ShipQ) 

OutShipQTime := 0.0; 

OutShipQTime := InOutQTime; 

ASK SELF TO BurnFuel(OutShipQTime - InShipQTime); 
TimelnShipQueue := TimelnShipQueue + (OutShipQTime - 

InShipQTime); 

ELSIF (EnterQ) AND (NOT ShipQ) 
inBeachQTime := 0.0; 
inBeachQTime := InOutQTime; 

ELSE 

OutBeachQTime := 0.0; 

OutBeachQTime := InOutQTime; 
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ASK SELF TO BurnFuel(OutBeachQTime - InBeachQTime); 
TimeinBeachQueue := TimeInBeachQueue + (OutBeachQTime 

- InBeachQTime); 

END IF; 

END METHOD; 

{ } 

ASK METHOD SetLoadStatus(IN Status ; BOOLEAN; 

IN Vessel : RoRoObj); 

{ } 

BEGIN 

{ 

WriteLine("SetLoadStatus fired on " + 

LighterNameTypeToStr(LighterTypeName) + 

"LighterlD = " + LighterlD); 

} 

LoadStatus ;= Status; 

ShipID := Vessel; 

END METHOD; 


{ } 

ASK METHOD BurnFuel(IN BurnTime : REAL); 

{ } 

BEGIN 

CurrentFuel := CurrentFuel - (FuelBurnRate * BurnTime/60.0); 

{ 

WriteLine("Burning fuel. CurrentFuel = " + 

REALTOSTR(CurrentFuel) ) ; 

WriteLine(" "); 

} 
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END METHOD; 


} 

} 


{ 

ASK METHOD ResetLighterStats; 

{ 

BEGIN 

{ 

WriteLine("ResetLighterStats " + LighterlD); 

} 

InShipQTime := 0.0; 

OutShipQTime := 0.0; 
inBeachQTime := 0.0; 

OutBeachQTime := 0.0; 

TimelnShipQueue := 0.0; 

TimeInBeachQueue := 0.0; 

TimeToTotalOffload := 0.0; 

LoadStatus := FALSE; 

ShipSpotIndex := 0; 

BeachSpotIndex := 0; 

RefuelSpotIndex := 0; 

TransitDistance := 0.0; 

CurrentFuel := FuelCapacity; 

END METHOD; 

{ 

TELL METHOD ApproachAndMoor(IN index ; INTEGER; 

IN Dest : DestinationType; 
IN Obj : ANYOBJ); 

{ 


VAR 

ApproachAndMoorTime 

OperationalDelay 

RORO 

Beach 

RefuelArea 


REAL; 

REAL; 

RoRoObj; 
BeachObj; 
RefuelAreaObj ; 


} 

} 
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MeanCWF 

MeanLCU 


: REAL; 
; REAL; 


BEGIN 

IF ( Dest = Ship ) 

ShipSpotIndex := index; 

RoRo := Obj; 

IF ( ASK RoRo ShipType = SSR ) 
MeanCWF := 10.5; 

MeanLCU :=!«..'’5; 

ELSE { ShipType = NSSR } 
MeanCWF :=8.0; 

MeanLCU :=14.25; 

END IF; 


IF LighterSpot = CWF 

ApproachAndMoorTime := ASK RandTimel Normal(MeanCWF, 

3.22) ; 

OperationalDelay := ASK RandTime2 Normal(2.0, 0.85); 
ELSE { LighterSpot = LCU } 

ApproachAndMoorTime := ASK RandTimel Normal(MeanLCU, 

2 . 22 ) ; 

OperationalDelay := ASK RandTime2 Normal(2.0, 0.85); 
END IF; 

ELSIF ( Dest = Bch ) 

BeachSpotIndex := index; 

IF LighterSpot = CWF 

ApproachAndMoorTime :=ASK RandTimel Normal(17.0,3.43) 
OperationalDelay :=EXP(ASK RandTime2 

Normal(1.0,0.85)); 
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ELSE { LighterSpot = LCU } 

ApproachAndMoorTime :=ASK RandTimel 

Normal(11.0,4.298); 

OperationalDelay :=ASK RandTime2 UniformReal(i.0,3.0); 
END IF; 

ELSE 

{Dest = RefuelArea} 

RefuelSpotIndex := index; 

IF LighterSpot = CWF 

ApproachAndMoorTime :=ASK RandTimel Normal(17.0,3.43); 
OperationalDelay := ASK RandTime2 Normal(l.O, 0.85); 
ELSE { LighterSpot = LCU } 

ApproachAndMoorTime :=ASK RandTimel 

Normal(11.0,4.298); 

OperationalDelay :=ASK RandTime2 UniformReal(i.0,3.0); 
END IF; 

END IF; 


WAIT DURATION ApproachAndMoorTime + OperationalDelay 
END WAIT; 


ASK SELF TO BurnFuel(ApproachAndMoorTime + 

OperationalDelay); 


IF ( Dest = Ship ) 

{ 

WriteLine("ApproachAndMoor Ship " + " shipSpot = " + 
INTTOSTR(ShipSpotindex) + " LighterlD = " + 
LighterlD); 

WriteLine(" ApproachAndMoorTime = " + 
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REALTOSTR(ApproachAndMoorTime + 
OperationalDelay)); 


ASK RoRo TO MakeLoad(SELF, ShipSpotindex); 

ELSIF ( Dest = Bch ) 

{ 

WriteLine{"ApproachAndMoor Beach « + " BeachSpot = " + 
INTTOSTR(BeachSpotIndex) + " LighterlD = " + 
LighterlD); 

WriteLine(" ApproachAndMoorTime = " + 

REALTOSTR(ApproachAndMoorTime + 
OperationalDelay)); 

} 

Beach ;= Obj; 

ASK Beach TO OccupyBeachSpot(BeachSpotIndex); 

TELL SELF TO OffLoad(Beach); 

ELSE 

{Dest = RefuelArea} 

( 

WriteLine("ApproachAndMoor RefuelArea " + " RefuelAreaSpot 
= " + INTTOSTR(RefuelSpotindex) + 

" LighterlD = " + LighterlD); 

WriteLine(" ApproachAndMoorTime = " + 

REALTOSTR(ApproachAndMoorTime + 
OperationalDelay)); 


RefuelArea ;= Obj; 

TELL SELF TO Refuel(RefuelArea); 
END IF; 


END METHOD; 


{ 

TELL METHOD OnLoad(IN RoRo : RORoObj); 

{ 
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VAR 


OnLoadTime 

REAL; 

OperationalDelay2 

REAL; 

MeanCWF 

REAL; 

MeanLCU 

REAL; 

BEGIN 



IF ( 7VSK RORO ShipType = SSR ) 

MeanCViF := 16.0; 

MeanLCU := 15.85; 

ELSE { ShipType = NSSR } 

MeanCWF := 25.0; 

MeanLCU := 18.0; 

END IF; 

IF LighterSpot = CWF 

OnLoadTime := ASK RandTimel Normal(MeanCWF, 3.87); 
OperationalDelay2 ;=EXP(ASK RandTime2 

Normal(1.24,1.186)); 

OnLoadTime := OnLoadTime * FLOAT(f^LoadSize); 

ELSIF LighterSpot = LCU 

OnLoadTime := ASK RandTimel Normal(MeanLCU, 3.87); 
OperationalDelay2 := ASK RandTime2 Normal(l.O, 0.42); 
OnLoadTime := OnLoadTime * FLOAT(MyLoadsize); 

ELSE 

OnLoadTime := ASK RandTime2 Normal(10.25, 5.75); 
OnLoadTime ;= OnLoadTime * FLOAT(MyLoadsize); 

END IF; 


WAIT DURATION OnLoadTime + OperationalDelay2 
END WAIT; 
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+ ASK 


{ 

WriteLine("Onload fired " + 

LighterNameTypeToStr{LighterTypeName) + 

" LighterlD = " + LighterlD + " Ship is " 
RoRo ShipName); 

WriteLine("OnLoadTime = " + REALTOSTR(OnLoadTime + 
OperationalDelay2)); 

WriteLine(" "); 

} 


ASK SELF TO BurnFuel(OnLoadTime + OperationalDelay2); 
TELL SELF TO CastAndClear(Ship, RoRo); 


END METHOD; 


{ } 

TELL METHOD CastAndClear(IN Berth : DestinationType; 

IN Obj : ANYOBJ); 

{ } 

VAR 

CastAndClearTime : REAL; 

RoRo : RoRoObj; 

Beach : BeachObj; 

RefuelArea : RefuelAreaObj; 

MeanCWF : REAL; 

MeanLCU : REAL; 

Dest : DestinationType; 


BEGIN 

IF ( Berth = Ship ) 
RoRo := Obj; 
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IF ( ASK RORO ShipType = SSR ) 

MeanCWF := 5.0; 

MeanLCU :=2.0; 

ELSE { ShipType = NSSR } 

MeanCWF :=4.0; 

IfeanLCU :=4.0; 

END IF; 

IF LighterSpot = CWF 

CastAndClearTime :=ASK RandTimei Normal(MeanCWF, i.33); 
ELSE { LighterSpot = LCU } 

CastAndClearTime :=ASK RandTimei 

UniformReal(MeanLCU, 2.5) ; 


END IF; 

ELSIF ( Berth = Bch ) 

Beach := Obj; 

IF LighterSpot = CWF 

CastAndClearTime := ASK RandTimei Normal(9.9, 1.76); 
ELSE { LighterSpot = LCU } 

CastAndClearTime :=ASK RandTimei 

UniformReal(1.75,3.0); 


END IF; 

ELSE 

{ Berth = RefuelArea } 

IF LighterSpot = CWF 

CastAndClearTime := ASK RandTimei Normal(9.9, 1.76); 
ELSE { LighterSpot = LCU } 

CastAndClearTime :=ASK RandTimei 

UniformReal(l.75, 3.0); 


END IF; 
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END IF; 


WAIT DURATION CastAndClearTime 

END WAIT; 

ASK SELF TO BurnFuel(CastAndClearTime); 

IF ( Berth = Ship ) 

{if this Lighter has the last load, LoadStatus = T, then 
the Lighter simply transits. If this is not the last 
load, then the RoRo sets a Spot free thus starting the 
whole lighter cycle for the next Lighter of the 
appropriate type in the AwaitingShipQueue.} 

{ 

WriteLine(LighterNameTypeToStr(LighterTypeName) + " 
LighterlD = " + 

LighterlD + " CastAndClear Ship " + ASK RoRo 
ShipName) ; 

WriteLine("CastAndClearTime = " + 

REALTOSTR(CastAndClearTime)); 

WriteLine{" "); 

} 


Dest := Bch; 

IF LoadStatus 

TELL SELF TO TransitTo(DeSt, RoRo); 

ELSE 

ASK RoRo TO SetSpotFree(ShipSpotlndex); 

TELL SELF TO TransitTo(Dest, RoRo); 

END IF; 

ELSIF ( Berth = Bch ) 

(After Offload and CastAndClear are complete, check fuel 
status (only one check in cycle). If less than or equal 
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to the minimum allowable, the lighter must transit to 
the refueling area. If LoadStatus = T, then lighter has 
just carried the last load to the beach and it is 
returning to the ShipQ.} 


{ 

WriteLine(LighterNcuneTypeToStr(LighterTypeName) + 
LighterlD = " + 

LighterlD + " CastAndClear Beach " + 
BeachTypeToStr(ASK Beach BeachMake)); 
WriteLine("CastAndClearTime = " + 

REALTOSTR(CastAndClearTime)); 

WriteLine(" ") ; 

} 


IF LoadStatus 
Best := Ship; 

TELL SELF TO TransitTo(Best, Beach); 

RETURN; 

ELSE 

IF (CurrentFuel <= MinFuel) 

Best := Fuel; 

ASK Beach TO SetSpotFree(BeachSpotlndex); 
TELL SELF TO TransitTo(Best, Beach); 

ELSE 

Best := Ship; 

ASK Beach TO SetSpotFree(BeachSpotIndex); 


{ 

WriteLine("//Fuel Status// MinFuel = " + 
REALTOSTR(MinFuel) + 

" CurrentFuel — " + 

REALTOSTR(CurrentFuel)); 


TELL SELF TO TransitTo(Best, Beach); 
ENB IF; 
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END IF; 


ELSE 

{ Berth = RefuelArea } 

Dest := ShipFromRefuel; 
RefuelArea := Obj; 


{ 

WriteLine (Light erNameTypeToStr (Light erTypeNcime) + " 
LighterlD = " + LighteriD + " CastAndClear 
RefuelArea " + ASK RefuelArea AreaName) ; 
WriteLine("CastAndClearTime = " + 

REALTOSTR(CastAndClearTime)); 

WriteLine(" "); 

} 


ASK RefuelArea TO SetSpotFree(RefuelSpotlndex); 
TELL SELF TO TransitTo(Dest, RefuelArea); 

END IF; 


END METHOD; 


{ } 

TELL METHOD TransitTo(IN Dest : DestinationType; 

IN Obj : ANYOBJ); 

{ } 

VAR 

TransitTime : REAL; 

RoRo : RoRoObj; 

Beach : BeachObj; 

RefuelArea : RefuelAreaObj; 
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BEGIN 


IF { Dest = Bch ) 

RORO := Obj; 

TransitDistance : ASK RoRo DistanceFromBLCP; 

TransitTime := TransitDistance/(FullLoadSpeed *0.65)*60.0; 

{ 

WriteLine(LighterNameTypeToStr(LighterTypeName) + " 
LighterlD = " + 

LighterlD + " TransitTo fired, now leaving " + 
ASK RoRo ShipName + " for BLCP. "); 

WriteLine("TransitTime = " + REALTOSTR(TransitTime)); 
WriteLine(" "); 

} 

BLSIF { Dest = Ship ) 

Beach := Obj; 

TransitDistance := ASK Beach DistanceToSLCP; 

TransitTime := TransitDistance/(MaxSpeed * 0.65) * 60.0; 

{ 

WriteLine(LighterNameTypeToStr(LighterTypeName) + " 
LighterlD = " + 

LighterlD + " TransitTo Fired, now leaving " + 
BeachTypeToStr(ASK Beach BeachMake) + " For 
SLOP."); 

WriteLine("TransitTime = " + REALTOSTR(TransitTime)); 
WriteLine(" "); 

} 

ELSIF ( Dest = Fuel ) 
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Beach := Obj; 

Dest := RefuelFromBeach; 

TransitDistance := ASK Beach DistFromBeachToRefuel; 
TransitTime := TransitDistance/(MaxSpeed * 0.65) * 60.0; 


{ 

WriteLine{LighterNameTypeToStr(LighterTypeName) + " 
LighterlD = " + 

LighterlD + " TransitTo fired, now leaving 
beach for RefuelArea "); 

WriteLine("TransitTime = " + REALTOSTR(TransitTime)); 
WriteLine{" "); 

} 

ELSE 

{ Dest = ShipFromRefuel } 

RefuelArea := Obj; 

TransitDistance := ASK RefuelArea DistFromRefuelToShip; 
TransitTime := TransitDistance/(MaxSpeed ♦ 0.65) * 60.0; 


{ 

WriteLine(LighterNameTypeToStr(LighterTypeName) + " 
LighterlD = " + 

LighterlD + " TransitTo fired, now leaving " + 
ASK RefuelArea AreaName + " for SLOP "); 
WriteLine("TransitTime = " + REALTOSTR(TransitTime)); 
WriteLine(" ") ; 


END IF; 


WAIT DURATION TransitTime 
END WAIT; 
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ASK SELF TO BurnFuel(TransitTime); 


IF ( Dest = Bch ) 

ASK BLCP TO GetSpot(SELF); 

ELSIF ( Dest = Ship ) 

ASK SLOP TO GetSpot(SELF); 

ELSIF ( Dest = RefuelFromBeach ) 

ASK FuelCP TO GetFuelSpot(SELF); 
ELSE 

{ Dest = ShipFromRefuel } 

ASK SLOP TO GetSpot(SELF); 

END IF; 


END METHOD; 


{ } 

TELL METHOD OffLoad(IN Obj : ANYOBJ); 

{ } 

VAR 

OffLoadTime : REAL; 

OperationalDelay4 : REAL; 

Berth : DestinationType; 

Beach : BeachObj; 


BEGIN 


IF LighterSpot = CWF 

OffLoadTime := ASK RandTimel Normal(10.0, 3.43); 
0perationalDelay4 := ASK RandTime2 UniformReal(0.0, 1.5); 
OffLoadTime := OffLoadTime * FLOAT(wyLoadSize); 

ELSE { LighterSpot = LCU } 

OffLoadTime := ASK RandTimel Normal(3.0, 0.859); 
OperationalDelay4 := ASK RandTime2 Normal(l.O, 0.333); 
OffLoadTime := OffLoadTime * FLOAT(l^LoadSize); 
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END IF; 


WAIT DURATION OffLoadTime + OperationalDelay4 
END WAIT; 


Beach ;= Obj; 

{ 

WriteLine(LighterNameTypeToStr(LighterTypeName) + " 
LighterlD = " + 

LighterlD + " Offload fired at " + 
BeachTypeToStr(ASK Beach BeachMake)); 
WriteLine("OffLoadTime = " + REALTOSTR(OffLoadTime + 
0perationalDelay4)); 

WriteLine(" "); 

} 


ASK SELF TO BurnFuel(OffLoadTime + 0perationalDelay4); 
Berth := Bch; 

TELL SELF TO CastAndClear(Berth, Beach); 

END METHOD; 


{ } 

TELL METHOD Refuel(IN Obj : ANYOBJ); 

{ } 

VAR 

RefuelTime : REAL; 

Rate : REAL; 

RefuelArea : RefuelAreaObj; 

BEGIN 

{ 
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WriteLine(LighterNameTypeToStr(LighterTypeName) + " 
LighterlD = " + 

LighterlD + " Refueling "); 

} 

RefuelArea := Obj; 

Rate ;= ASK RefuelArea PumpRate; 

RefuelTime := ((FuelCapacity - CurrentFuel) / Rate) * 60.0; 
CurrentFuel := FuelCapacity; 

{ 

WriteLine("RefuelTime = " + REALTOSTR(RefuelTime)); 
WriteLine(" "); 

} 

WAIT DURATION RefuelTime 
END WAIT; 

TELL SELF TO CastAndClear(Fuel, Obj); 

END METHOD; 


END OBJECT; 
END MODULE. 


DEFINITION MODULE BLCP; 

{ 

Module Name: BLCP Last Modified: 18 Jun 93 

Author: j. S. Noel 

Lt. USN 

DESCRIPTION: Defines the Beach Lighterage Control Point 

Object (BLCPObj). After a Lighter CastsandClears the beach 
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it asks the BeachObj to SetSpotFree. This method fires the 
GetLighter method in BLCPObj. BLCPObj then pops the first 
appropriate lighter off of theAwaitingBeachQueue and directs 
the lighter to ApproachAndMoor to the Beach, where the 
offload of vehicles can begin. 

} 

FROM GrpMod IMPORT QueueObj; 

FROM Lighter IMPORT LighterObj; 

FROM Beach IMPORT BeachObj; 

TYPE 

AwaitingBeachQueueObj = OBJECT{QueueObj[ANYOBJ: LighterObj]) 
END OBJECT; 

BLCPObj = OBJECT 

ASK METHOD Objinit; 

ASK METHOD GetSpot(IN Lighter : LighterObj); 

ASK METHOD GetLighter(IN index : INTEGER; 

IN Beach : BeachObj); 

END OBJECT; 

VAR 

WaitForBeachQueue : AwaitingBeachQueueObj; 

BLCP : BLCPObj; 

END MODULE. 


IMPLEMENTATION MODULE BLCP; 

{ 

Module Name; BLCP Last Modified: 17 Jul 93 

Author: J. S. Noel 

Lt. USN 
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DESCRIPTION: Implements a Ship Lighter Control Point (SLCP) 

object. 


FROM Global IMPORT SpotType, 

ALL DestinationType; 
FROM Lighter IMPORT LighterObj; 

FROM Beach IMPORT BeachObj; 

FROM SimMod IMPORT SimTime; 

FROM Builder IMPORT BeachBuilder; 

FROM WriteLine IMPORT WriteLine; 


OBJECT BLCPObj; 

{ } 

ASK METHOD ObjInit; 


BEGIN 

NEW(WaitForBeachQueue); 
END METHOD; 


ASK METHOD GetSpot(IN Lighter : LighterObj); 


VAR 

i : INTEGER; 

SpotAvail : BOOLEAN; 

Login : BOOLEAN; 

ThisQ : BOOLEAN; 

TheBeach : BeachObj; 

Dest : DestinationType; 

BEGIN 

{ 

WriteLine("GetSpot Fired in BLCP ”); 

} 
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SpotAvail := FALSE; 

Dest := Bch; 

TheBeach := ASK BeachBuilder First(); 

WHILE TheBeach <> nilobj 

ASK TheBeach TO CheckSpots(SpotAvail, i); 

IF SpotAvail 

TELL Lighter TO ApproachAndMoor(i, Dest, TheBeach); 
EXIT; 

END IF; 

TheBeach := ASK BeachBuilder Next(TheBeach) ; 

END WHILE; 

IF ( NOT SpotAvail ) 

ASK WaitForBeachQueue TO Add(Lighter); 

Login ;= TRUE; { adding to Q } 

ThisQ := FALSE; { Q type = Beach ) 

ASK Lighter TO LogQueueTime(SimTime(), Login, ThisQ); 

END IF; 

END METHOD; 

} 


} 

VAR 

Lighter : LighterObj; 

Login : BOOLEAN; 

ThisQ : BOOLEAN; 

Dest ; DestinationType; 


BEGIN 

{ 


{ 

ASK METHOD GetLighter(IN index : INTEGER; 

IN Beach : BeachObj); 

{ 
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WriteLine("GetLighter Fired in BLCP "); 

} 

Dest := Bch; 

Lighter := ASK waitForBeachQueue First(); 

IF Lighter <> NILOBJ 

ASK WaitForBeachQueue TO RemoveThis(Lighter); 

Login := FALSE; { not adding to Q } 

ThisQ := FALSE; { Q type = beach } 

ASK Lighter TO LogQueueTime(SimTime(), Login, ThisQ); 
TELL Lighter TO ApproachAndJtoor(index, Dest, Beach); 
ASK Beach TO OccupyBeachSpot(index); 


END IF; 


END METHOD; 
END OBJECT; 
END MODULE. 


DEFINITION MODULE Beach; 

{ 

Module Name: Beach Last Modified: 20 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines a Beach object. 

} 

FROM ShpList IMPORT SpotArrayType; 

FROM Global IMPORT SpotidleTimeArrayType; 
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TYPE 


BeachType = (BareBeach, FloatingCWPier, ELCAS); 

BeachObj = object 

BeachMake : BeachType; 

BeachID : STRING; 

NumSpotS : INTEGER; 

BeachSpot : SpotArrayType; 

DistanceToSLCP : REAL; 

DistFromBeachToRefuel : REAL; 

BeachSpotIdleTime : SpotIdleTimeArrayType; 

ASK METHOD Objinit; 

ASK METHOD GetBeachSetup(IN ID : STRING; 

IN Name : BeachType; 

IN Numl : INTEGER; 

IN Array : SpotArrayType; 
IN Num2 : REAL; 

IN N\am3 : REAL) ; 

ASK METHOD SetSpotFree(IN index ; INTEGER); 

ASK METHOD CheckSpOtS(OUT SpotAvail : BOOLEAN; 

OUT index : INTEGER); 

ASK METHOD LogidleBeachSpotTime(IN index : INTEGER; 

IN InOutSpotTime : REAL; 
IN Spotidle : BOOLEAN); 

ASK METHOD OccupyBeachSpot(IN index : INTEGER); 

ASK METHOD ResetBeachStats; 


END OBJECT; 

VAR 

Beach : BeachObj; 
END MODULE. 
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IMPLEMENTATION MODULE Beach; 

{ 

Module Name: Beach Last Modified: 18 Jun 93 


Author: j. S. Noel 

Lt. USN 

DESCRIPTION: Implements a Beach object. 

} 

FROM ShpList IMPORT SpotArrayType; 

FROM Global IMPORT ALL SpotType, SpotRecType, 

ALL SpotIdleTimeRecType; 

FROM SimMod IMPORT SimTime; 

FROM BLCP IMPORT BLCP; 

FROM WriteLine IMPORT WriteLine; 

FROM Convert IMPORT BeachTypeToStr; 

TYPE 

OBJECT BeachObj; 

{ } 

ASK METHOD Objinit; 

{.} 

BEGIN 

END METHOD; 

{ } 


ASK METHOD GetBeachSetup{IN ID : STRING; 

IN Name : BeachType; 

IN Numl ; INTEGER; 

IN Array : SpotArrayType; 

IN Num2 : REAL; 

IN Num3 : REAL) ; 

{ } 
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VAR 

i : INTEGER; 

Rec : SpotidleTimeRecType; 

BEGIN 

BeachID := ID; 

BeachMake := Name; 

{ 

WriteLine("//GetBeachSetup// BeachMake = " + 
BeachTypeToStr(BeachMake)); 

} 

NumSpots := Numl; 

NEW(BeachSpot, l, .NxomSpots) ; 

BeachSpot := Array; 

DistanceToSLCP := Num2; 

DistFromBeachToRefuel := Num3; 

NEW(BeachSpotIclleTime, 1. .NumSpots) ; 

FOR i := 1 TO NumSpots 

BeachSpot[i].TotalldleTime := 0.0; 

NEW(Rec); 

Rec.StartTime := 0.0; 

Rec.EndTime := 0.0; 

BeachSpotidleTime[i] := Rec; 

END FOR; 


END METHOD; 
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} 


{ 

ASK METHOD LogldleBeachSpotTime(IN index : INTEGER; 

IN InOutSpotTime : REAL; 

IN SpotIdle : BOOLEAN); 

{ } 

BEGIN 

{ 

WriteLine("LogIdleBpachSpotTime Fired "); 

} 

IF SpotIdle 

BeachSpotidleTime[index].StartTime := InOutSpotTime; 

ELSE 

BeachSpotidleTime[index].EndTime := InOutSpotTime; 
BeachSpot[index].TotalidleTime := 

BeachSpot[index].TotalidleTime + 

(BeachSpotidleTime[index].EndTime - 

BeachSpotidleTime[index].StartTime); 

END IF; 

END METHOD; 


{ } 

ASK METHOD SetSpotFree(IN index : INTEGER); 

{ } 

VAR 

Idle : BOOLEAN; 

BEGIN 

{ 

WriteLine("SetSpotFree fired in beach " + 

BeachTypeToStr(BeachMake) + " Spot " + 

INTTOSTR{index)); 
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BeachSpot[index].SpotFree ;= TRUE; 

Idle := BeachSpot[index].SpotFree; 

ASK SELF TO LogIdleBeachSpotTime(index, SimTimeO, Idle); 
ASK BLCP TO GetLighter(index, SELF); 

END METHOD; 

{ 

ASK METHOD CheclcSpotS (OUT SpotAvail : BOOLEAN; 

OUT index : INTEGER); 

f 

{ 

BEGIN - -- 

{ 

WriteLine("CheclcSpotS fired in beach " + 

BeachTypeToStr(BeachMake)); 

} 

SpotAvail := FALSE; 

FOR index := l TO HIGH(BeachSpot) 

IF (BeachSpot[index].SpotFree) 

SpotAvail := TRUE; 

BeachSpot[index].SpotFree := FALSE; 

EXIT; 

END IF; 

END FOR; 

END METHOD; 

{ 

ASK METHOD OccupyBeachSpot(IN index : INTEGER); 

{ 

VAR 

Idle : BOOLEAN; 







BEGIN 

{ 

WriteLine("Occupy spot fired in beach " + 

BeachTypeToStr(BeachMake)); 

} 

BeachSpot[index].SpotFree := FALSE; 

Idle := BeachSpot[index].SpotFree; 

ASK SELF TO LogIdleBeachSpotTime(index, SimTimeO, Idle); 
END METHOD; 

{ 

ASK METHOD ResetBeachStats; 

{ 

VAR 

i : INTEGER; 

BEGIN 

{ 

WriteLine("ResetBeachStats " + BeachTypeToStr(BeachMake)); 

} 

FOR i := 1 TO NumSpotS 

BeachSpot[i].SpotFree := TRUE; 

BeachSpot[i].TotalldleTime := 0.0; 

BeachSpotidleTime[i].StartTime := 0.0; 

BeachSpotidleTime[i].EndTime := 0.0; 

END FOR; 

END METHOD; 


END OBJECT; 


END MODULE. 







DEFINITION MODULE PuelCP; 

{ 

Module Name: PuelCP Last Modified: 20 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines the Fuel Control Point Object 

(PuelCPObj) and the WaitingForFuelQueueObj. The 
WaitingForFuelQueue is a FIFO group of lighters waiting for 
an empty spot for refueling. When a spot opens up the 
FuelCPObj pops the first lighter off of the queue and tells 
it ApproachAndMoorRefuelArea. 

} 

FROM GrpMod IMPORT QueueObj; 

FROM Global IMPORT SpotType; 

FROM Lighter IMPORT LighterObj; 

FROM Refuel IMPORT RefuelAreaObj; 

TYPE 

WaitingForFuelQueueObj = OBJECT(QueueObj[ANYOBJ: 

LighterObj]) 

END OBJECT; 

FuelCPObj = OBJECT 

ASK METHOD Objinit; 

ASK METHOD GetFuelSpot(IN Lighter : LighterObj); 

ASK METHOD GetGasLowLighter(IN index : INTEGER; 

IN RefuelArea : RefuelAreaObj); 

END OBJECT; 

VAR 

WaitForFuelQueue : WaitingForFuelQueueObj; 

FuelCP : FuelCPObj; 
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END MODULE. 


IMPLEMENTATION MODULE FuelCP; 


Module Name: FuelCP Last Modified: 20 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Implements the Fuel Control Point Object 

(FuelCPObj) and the WaitingForFuelQueueObj. 

} 

FROM Lighter IMPORT LighterObj; 

FROM SimMod IMPORT SimTime; 

FROM Refuel IMPORT RefuelAreaObj; 

FROM Builder IMPORT FuelAreaBuilder; 

FROM Global IMPORT ALL DestinationType; 

FROM WriteLine IMPORT WriteLine; 

TYPE 

OBJECT FuelCPObj; 


ASK METHOD ObjInit; 


BEGIN 

NEW{waitForFuelQueue); 
END METHOD; 


ASK METHOD GetFuelSpot(IN Lighter : LighterObj); 


VAR 
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SpotAvail : BOOLEAN; 
index : INTEGER; 

RefuelArea : RefuelAreaObj; 
Best : DestinationType; 


BEGIN 

{ 

WriteLine("GetFuelSpot Fired « + « LighterlD = " + ASK 
Lighter LighterlD); 

} 

SpotAvail := FALSE; 

Dest := Fuel; 

RefuelArea := ASK FuelAreaBuilder First(); 

WHILE RefuelArea <> NILOBJ 

ASK RefuelArea TO CheckFuelSpots(SpotAvail, index); 

IF SpotAvail 

TELL Lighter TO ApproachAndMoor(index, Dest, 
RefuelArea); 

ASK RefuelArea TO OccupySpot(index); 

RETURN; 

END IF; 

RefuelArea := ASK FuelAreaBuilder Next(RefuelArea); 

END WHILE; 

IF (NOT SpotAvail ) 

ASK WaitForFuelQueue TO Add(Lighter); 

END IF; 

END METHOD; 

{ 

ASK METHOD GetGasLowLighter(IN index : INTEGER; 

IN RefuelArea : RefuelAreaObj); 


{ 








VAR 

Lighter : LighterObj; 

Dest : DestinationType; 

BEGIN 

{ 

WriteLine("GetGasLowLighter Fired "); 

} 

Dest := Fuel; 

Lighter := ASK WaitForFuelQueue First(); 

IF Lighter <> NILOBJ 

ASK WaitForFuelQueue TO RemoveThis(Lighter); 

TELL Lighter TO ApproachAndMoor(index, Dest, RefuelArea); 
END IF; 

END METHOD; 

END OBJECT; 

END MODULE. 


DEFINITION MODULE Refuel; 

{ 

Module Name: RefuelArea Last Modified: 20 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines The RefuelArea object. 

} 
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FROM Global IMPORT RefuelSpotRecType; 
FROM Lighter IMPORT LighterObj; 

TYPE 


RefuelSpotArrayType = ARRAY INTEGER OR RefuelSpotRecType; 


RefuelAreaObj = object 


AreaName 

NumRefuelSpots 

DistFromRefuelToShip 

RefuelSpot 

PumpRate 


STRING; 

INTEGER; 

REAL; 

RefuelSpotArrayType; 
REAL; 


ASK METHOD Objinit; 

ASK l~THOD GetRefuelAreaSetupdN Name : STRING; 

IN Nximl : INTEGER; 
IN Num2 : REAL; 

IN Array : 


RefuelSpotArrayType; 


IN Num3 : REAL); 


ASK METHOD SetSpotFree(IN index ; INTEGER); 

ASK METHOD CheckFuelSpotS(OUT SpOtAvail : BOOLEAN; 

OUT index : INTEGER); 

ASK METHOD OccupyRefuelSpot(IN index : INTEGER); 


END OBJECT; 

VAR 

RefuelArea : RefuelAreaObj; 
END MODULE. 


IMPLEMENTATION MODULE Refuel; 
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{ 

Module Name: RefuelArea Last Modified: 20 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Implements The RefuelArea object. 

} 

FROM PuelCP IMPORT FuelCP; 

FROM Lighter IMPORT LighterObj; 

FROM WriteLine IMPORT WriteLine; 


OBJECT RefuelAreaObj; 


{ 

ASK METHOD ObjInit; 

{ 

BEGIN 


} 

} 


END METHOD; 


{ 

ASK METHOD GetRefuelAreaSetup(IN Name : STRING; 

IN Numl : INTEGER; 
IN Num2 : REAL; 


RefuelSpotArrayType; 

{ 


IN Array : 

IN Num3 : REAL); 


BEGIN 


} 


} 
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AreaName 


: =Ncune; 


{ 

WriteLine("//GetRefuelAreaSetup// AreaName = " + AreaName) 

} 

NumRefuelSpots :=Numl; 

DistFromRefuelToShip :=Niim2; 

NEW(RefuelSpot, 1. .NxamRe fuel Spots) ; 

RefuelSpot :=Array; 

PtompRate : =Num3 ; 


END METHOD; 


{ 

ASK METHOD SetSpotFree(IN index : INTEGER); 

{ 

BEGIN 

{ 

WriteLine("SetSpotFree Fired in RefuelArea "); 

} 

RefuelSpot[index],RefuelSpotFree := TRUE; 

ASK FuelCP TO GetGasLowLighter(index, SELF); 


END METHOD; 




{ 

ASK METHOD CheckFuelSpots(OUT SpotAvail : BOOLEAN; 

OUT index : INTEGER); 

{ 


BEGIN 

{ 

WriteLine("CheckFuelSpots fired in RefuelArea "); 

} 

SpotAvail := FALSE; 

FOR index := i TO HIGH(RefuelSpot) 

IF (RefuelSpot[index].RefuelSpotFree) 

SpotAvail := TRUE; 

RETURN; 

END IF; 

END FOR; 

END METHOD; 

{ 

ASK METHOD OccupyRefuelSpot(IN index : INTEGER); 

{ 

BEGIN 

{ 

WriteLine("OccupySpot Fired in RefuelArea spot = " + 
INTTOSTR(index)); 

} 

RefuelSpot[index].RefuelSpotFree := FALSE; 

END METHOD; 

END OBJECT; 


END MODULE. 












DEFINITION MODULE Convert; 


Module Name: Convert Last Modified: 20 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Defines Procedures for converting entimerated 
types to/from STRING for input/output. 

} 

PROM Global IMPORT SpotType; 

FROM Beach IMPORT BeachType; 

FROM Lighter IMPORT LighterNameType; 

FROM Ship IMPORT ShipTypeType; 


PROCEDURE SpotTypeToStr(IN Spot : SpotType) : STRING; 
PROCEDURE StrToSpotTypedN Str : STRING) : SpotType; 

PROCEDURE BeachTypeToStr(IN BchName : BeachType) : STRING; 
PROCEDURE StrToBeachTypedN Str : STRING) : BeachType; 

PROCEDURE LighterNameTypeToStr(IN LighterName : 

LighterNameType) : STRING; 
PROCEDURE StrToLighterNameType(IN Str : STRING) : 

LighterNameType; 

PROCEDURE ShipTypeToStr(IN ShipType : ShipTypeType) : 

STRING; 

PROCEDURE StrToShipType(IN Str : STRING) : ShipTypeType; 

PROCEDURE BooleanToStr(IN Boolean : BOOLEAN) : STRING; 
PROCEDURE StrToBooleandN str : STRING) : BOOLEAN; 


END MODULE. 


IMPLEMENTATION MODULE Convert; 
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{ 

Module Name: Convert Last Modified: 20 Jul 93 

Author: j. S. Noel 

Lt. USN 


DESCRIPTION: Implements Procedures for converting 

enumerated types to/from STRING for input/output. 


PROM Global 
FROM Beach 
FROM Lighter 
FROM Ship 
FROM WriteLine 


IMPORT ALL SpotType; 

IMPORT ALL BeachType; 

IMPORT ALL LighterNameType; 
IMPORT ALL ShipTypeType; 
IMPORT WriteLine; 


} 


{ } 

PROCEDURE SpotTypeToStr(IN Spot : SpotType) : STRING; 

{ } 

VAR 

Str : STRING; 

BEGIN 
CASE Spot 

WHEN LCU : Str := "LCU"; 

WHEN CWF : Str := "CWF"; 

WHEN LOLO : Str := "LoLo"; 

OTHERWISE 

Str := "Other...?"; 

END CASE; 

RETURN(Str); 

END PROCEDURE; 
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{ 

PROCEDURE StrToSpotType(IN Str : STRING) : SpOtType; 

{ 

VAR 

Spot : SpOtType; 

BEGIN 

WriteLine{"Converting" + Str); 

CASE Str 


WHEN "LCU" 

Spot 

= LCU 

WHEN "Leu" 

Spot 

= LCU 

WHEN "ICU" 

Spot 

= LCU 

WHEN "CWF" 

Spot 

= CWF 

WHEN "Cwf" 

Spot 

= CWF 

WHEN "cwf" 

Spot 

= CWF 


WHEN 

"LOLO" 

Spot 

:= LoLo; 

WHEN 

"LolO" 

Spot 

:= lolo; 

WHEN 

"lolo" 

Spot 

:= LoLo; 

WHEN 

"LOLO" 

Spot 

:= LoLo; 


END CASE; 
RETURN(Spot); 
END PROCEDURE; 


PROCEDURE BeachTypeToStr(IN BchName : BeachType) : STRING; 

{ 

VAR 

Str : STRING; 

BEGIN 


CASE BchName 














WHEN BareBeach : Str := "BareBeach"; 

WHEN FloatingOiTPier : Str := " FloatingCWPier" ; 
WHEN ELCAS : Str := "ELCAS"; 

OTHERWISE 

Str := "Other..,?"; 

END CASE; 

RETURN(Str); 

END PROCEDURE; 


{ 

PROCEDURE StrToBeachTypedN Str : STRING) ; BeachType; 

{ 

VAR 

BeachName : BeachType; 

BEGIN 

WriteLine{"Converting" + Str); 

CASE Str 

WHEN "BareBeach" : BeachName := BareBeach; 

WHEN "FloatingCWPier" : BeachName := FIoatingCWPier; 
WHEN "ELCAS" : BeachName := ELCAS; 

END CASE; 

RETURN(BeachName); 

END PROCEDURE; 


{ 

PROCEDURE LighterNameTypeToStr{IN LighterName : 

LighterNameType) : STRING; 


{ 










Str : STRING; 




BEGIN 





CASE LighterName 




WHEN 

LCU1466 : 

Str 

= 

"LCU1466"; 

WHEN 

LCU1610 : 

Str 

= 

"LCU1610"; 

WHEN 

LCU2000 : 

Str 

= 

"LCU2000"; 

WHEN 

CWFll 

Str 

= 

"CWFll"; 

WHEN 

CWF21 

Str 

= 

"CWF21"; 

WHEN 

CWF31 

Str 

= 

"CWF31" ; 

WHEN 

LSV : 

Str 

= 

"LSV"; 

OTHERWISE 





Str := "Other...?"; 
END CASE; 


RETURN(Str); 


END PROCEDURE; 

{ 

PROCEDURE StrToLighterNameType(IN Str : STRING) : 
LighterNameType; 

{ 


VAR 

LighterName : LighterNameType; 
BEGIN 


WriteLine("Converting" + Str); 


CASE Str 

WHEN "LCU1466" 
WHEN "LCU1610" 
WHEN "LCU2000" 
WHEN "CWFll" 
WHEN "CWF21" 
WHEN "CWF31" 
WHEN "LSV" 


LighterName 

LighterName 

LighterName 

LighterName 

LighterName 

LighterName 

LighterName 


LCU1466 

LCU1610 

LCU2000 

CWFll; 

CWF21; 

CWF31; 

LSV; 


) 

} 
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END CASE; 


RETURN(LighterName); 
END PROCEDURE; 


{ 

PROCEDURE ShipTypeToStr(IN ShipType : ShipTypeType) : 
STRING; 

{ 

VAR 

Str : STRING; 

BEGIN 

CASE ShipType 

WHEN SSR : Str := "SSR"; 

WHEN NSSR : Str := "NSSR"; 

OTHERWISE 

Str := "Other...?"; 

END CASE; 

RETURN(Str); 

END PROCEDURE; 


{ 

PROCEDURE StrToShipType(IN Str : STRING) ; ShipTypeType; 

{ 

VAR 

ShipType : ShipTypeType; 


BEGIN 










WriteLine("Converting" + Str); 

CASE Str 

WHEN "SSR" : ShipType := SSR; 
WHEN "NSSR" : ShipType := NSSR; 


END CASE; 

RETURN(ShipType); 
END PROCEDURE; 


{ } 

PROCEDURE BooleanToStrdN Boolean ; BOOLEAN) : STRING; 

{ } 

VAR 

Str : STRING; 

BEGIN 

CASE Boolean 

WHEN TRUE : Str := "TRUE"; 

WHEN FALSE : Str := "FALSE"; 

OTHERWISE 

Str ;= "Other...?"; 

END CASE; 

RETURN(Str); 

END PROCEDURE; 
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{ 

PROCEDURE StrToBooleandN str : STRING) : BOOLEAN; 

{ 


} 

} 


VAR 

Boolean : BOOLEAN; 

BEGIN 

WriteLine{"Converting" + Str); 

CASE str 

WHEN "TRUE" : Boolean := TRUE; 
WHEN "FALSE" : Boolean := FALSE; 

END CASE; 

RETURN(Boolean); 

END PROCEDURE; 


END MODULE. 


DEFINITION MODULE Stats; 


{ 

Module Name: Stats Last Modified: 2i Jul 93 

Author; J. S. Noel 
Lt. USN 


DESCRIPTION: Defines the Statistics Object. 


FROM Ship IMPORT RoRoObj ; 


} 


TYPE 
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SpotidleTimeRecType = RECORD 
Place : STRING; 

Time : REAL; 

END RECORD; 

GrandMeanBeachSpotidleTimeArrayType = ARRAY INTEGER OF 

SpotidleRecType; 


StatsObj = OBJECT; 

Reps : INTEGER; 

NijmBeaches : INTEGER; 
MeanTPut ; REAL; 
MeanLCUinBQ : REAL; 
MeanLSVinBQ : REAL; 
MeanCWFinBQ : REAL; 

GrandMeanLCUinBQ : REAL 
GrandMeanLSVinBQ ; REAL 
GrandMeanCWFinBQ : REAL 
GrandMeanLCUinSQ : REAL 
GrandMeanLSVinSQ : REAL 
GrandMeanCWFinSQ : REAL 

MeanLCUinSQ : REAL; 
MeanLSVinSQ ; REAL; 
MeanCWFinSQ : REAL; 


MeanShipLCUSpotldle : REAL; 

MeanShipCWFSpotIdle : REAL; 

MeanShipLoLoSpotIdle : REAL; 

GrandMeanShipLCUSpotidle : REAL; 

GrandMeanShipCWFSpotldle : REAL; 

GrandMeanShipLoLoSpotIdle : REAL; 

MeanBeachSpotidle : REAL; 

GrandMeanBeachSpotidleTime : 

GrandMeanBeachSpotIdleTimeArrayType; 
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ASK METHOD Objinit; 

ASK METHOD DumpStatS{IN OffloadTime : REAL); 
END OBJECT; 

VAR 

Stats : Statsobj; 

END MODULE. 


IMPLEMENTATION MODULE Stats; 

{ 

Module Name: Stats Last Modified: 21 Jul 93 

Author: J. S. Noel 

Lt. USN 

DESCRIPTION: Implements the Statistics Object. 

} 

FROM Lighter IMPORT LighterObj, ALL LighterNameType; 

FROM SLCP IMPORT WaitForShipQueue; 

FROM Ship IMPORT RoRoOb j ; 

FROM Beach IMPORT BeachObj, ALL BeachType; 

FROM Builder IMPORT BeachBuilder, LighterBuilder, 

ShipBuilder; 

FROM RepMngr IMPORT RepManager; 

FROM Global IMPORT ALL SpotType; 

FROM Convert IMPORT BeachTypeToStr; 

FROM writeLine IMPORT WriteLine, WriteLineA, WriteLineB, 

WriteLineC, writeLineD; 
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TYPE 


OBJECT StatsObj; 

{ } 

ASK METHOD Objinit; 

{ } 

VAR 

k : INTEGER; 

Beach : BeachObj; 

Rec : SpotIdleRecType; 

BEGIN 

Reps := 0; 

MeanTPut := 0.0; 


GrandMeanLCUinBQ := 0.0 
GrandMeanLSVinBQ := 0.0 
GrandMeanCWFinBQ := 0.0 
GrandMeanLCUinSQ := 0.0 
GrandMeanLSVinSQ := 0.0 
GrandMeanCWFinSQ := 0.0 


GrandMeanShipLCUSpotIdle := O.O; 
GrandMeanShipCWFSpotIdle := 0.0; 
GrandMeanShipLoLoSpotIdle := 0.0; 

NumBeaches ; = ASK BeachBuilder niomberln; 
NEW(GrandMeanBeachSpotIdleTiine, l.. NiimBeaches) ; 

k :=0; 

Beach := ASK BeachBuilder First(); 

VfHiLE Beach <> NILOBJ 

k : = k + 1 ; 
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NEW(Rec) ; 

Rec.Place := ASK Beach BeachIO; 

Rec.Time := 0.0; 

Grand^anBeachSpotldleTlme [k] := Rec; 

Beach := ASK BeachBuilder Next(Beach); 
END WHILEG¬ 
END METHOD; 


{ 

ASK METHOD DlUT^StatS (IN OffloadTime : REAL) ; 

{ 

VAR 


Lighter 

JunkLighter 

Ship 

Beach 

• 

1 

LighterType 

NameOfShip 

TypeOfBeach 

iDOfBeach 


LighterObj; 
LighterObj; 
RoRoObj; 

BeachObj; 
INTEGER; 

LighterNameType; 
STRING; 

BeachType; 
STRING; 


CountLCU 
CountLSV 
CountCWF 
CountLoLo 


INTEGER 

INTEGER 

INTEGER 

INTEGER 


TimeLCUinBQ : REAL 
TimeLSVinBQ : REAL 
TimeCWFinBQ : REAL 

TimeLCUinSQ : REAL 
TimeLSVinSQ : REAL 
TimeCWFinSQ : REAL 


} 

} 
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ShipLCUSpotIdle : REAL; 
ShipCWFSpotIdle : REAL; 
ShipLoLoSpotIdle : REAL; 

BeachSpotIdle : REAL; 


BEGIN 

WriteLine("Entering Stats mod, DumpStats method. 
OffloadTime = " + 

REALTOSTR(OffloadTime)); 


CountLCU :=0; 
CountLSV :=0; 
CountCWF ;=0; 
CountLoLo :=0; 

TimeLCUinBQ := 0.0 
TimeLSVinBQ := 0.0 
TimeCWFinBQ ;= 0.0 


TimeLCUinSQ := 0.0 
TimeLSVinSQ := 0.0 
TimeCWFinSQ := 0.0 


MeanLCUinBQ := o.0 
MeanLSVinBQ ;= 0.0 
MeanCWFinBQ := 0.0 

MeanLCUinSQ := 0.0 
MeanLSVinSQ := 0.0 
MeanCWFinSQ := 0.0 


ShipLCUSpotIdle := 0.0; 
ShipCWFSpotIdle := 0.0; 
ShipLoLoSpotIdle := 0.0; 

MeanShipLCUSpotidle := 0.0; 
MeanShipCWFSpotIdle := 0.0; 
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MeeUiShipLoLoSpotldle := 0.0; 

BeachSpotIdle := 0.0; 
IfeanBeachSpotIdle 0.0; 


Reps := Reps 1; 

IfeanTPut := MeanTPut + OffloadTime; 

Lighter := ASK LlghterBuilder First(); 

WHILE Lighter <> NILOBJ 

LighterType := ASK Lighter LighterTypeName; 

IF { LighterType = LCU1466) OR (LighterType 
LCU1610) OR (LighterType = LCU2000) 

TimeLCUinSQ := TimeLCUinSQ + ASK Lighter 
TimelnShipQueue; 

TimeLCUinSQ := TimeLCUinSQ + ASK Lighter 
TimeInBeachQueue; 

CountLCU := CountLCU + 1; 

ELSIF (ASK Lighter LighterTypeName = LSV ) 

TimeLSVinSQ := TimeLSVinSQ + ASK Lighter 
TimelnShipQueue; 

TimeLSVinSQ := TimeLSVinSQ + ASK Lighter 
TimeInBeachQueue; 

CountLSV := CountLSV + 1; 

ELSE 

TimeCWFinSQ := TimeCWFinSQ + ASK Lighter 
TimelnShipQueue; 

TimeCWFinSQ := TimeCWFinSQ + ASK Lighter 
TimeInBeachQueue; 

CountCWF := CountCWF + 1; 

END IF; 

Lighter := ASK LighterSuilder Next(Lighter); 










END WHILE; 


MeanLCUinBQ := TimeLCUinBQ / FLOAT(CountLCU); 
MeanLSVinBQ := TimeLSVinBQ / FLOAT(CountLSV); 
MeanCWFinBQ := TimeCWFinBQ / FLOAT(CountCWF); 

MeanLCUinSQ := TimeLCUinSQ / FLOAT(CountLCU); 
MeanLSVinSQ := TimeLSVinSQ / FLOAT(CountLSV); 
MeanCWFinSQ := TimeCWFinSQ / FLOAT(CountCWF); 

GrandMeanLCUinBQ := GrandMeanLCUinBQ + MeanLCUinBQ; 
GrandFteanLSVinBQ := GrandMeeuiLSVinBQ + MeanLSVinBQ; 
GrandMeamCWFinBQ := GrandMeanCWFinBQ + MeanCWFinBQ; 
GrandMeanLCUinBQ := GrandMeanLCUinBQ + MeanLCUinSQ; 
GrandMeanLSVinSQ GrandMeanLSVinSQ MecuiLSVinSQ; 
GrandMeanCWFinBQ := GrandMeanCWFinBQ + MeanCWFinBQ; 

CountLCU :=0; 

CountCWF :=0; 

CountLoLo :=0; 


{ Determine ship spot stats } 

IF ( Reps = 1 ) 

WriteLineC(" "); 

WriteLineC(" ") ; 

WriteLineC(".Idle Ship Spot TimeStats 

WriteLineC(" "); 

WriteLineC(" "); 

WriteLineC("Rep# Ship Name Mean LCU 
Mean LoLo"); 

END IF; 


Ship := ASK ShipBuilder First() ; 
WHILE Ship <> NILOBJ 


.") ; 

Mean CWF 
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NameOfShlp := ASK Ship ShipNaine; 

FOR i := 1 TO (ASK Ship NunSpots) 

IF ( ASK Ship ShipSpot[i].SpotClassification = LCU ) 
ShipLCUSpotldle ASK Ship 

ShipSpotti].TotalidleTime; 
CountLCU := CountLSV + 1 ; 

ELSIF( ASK Ship ShipSpot[i].SpotClassification = CWF ) 
ShipCWFSpotIdle := ASK Ship 

ShipSpot[i].TotalIdleTime; 
CountCWF := CountCWF + 1; 

ELSE 

ShipLoLoSpotIdle := ASK Ship 

ShipSpotli].TotalIdleTime; 
CountLoLo := CountLoLo + 1; 

END IF; 

END FOR; 

MfeanShipLCUSpotIdle := ShipLCUSpotldle /FLOAT{CountLCU); 
MfeanShipCWFSpotIdle := ShipCWFSpotIdle / FLOAT(CountCWF); 
MeanShipLoLoSpotIdle := ShipLoLoSpotIdle / FLOAT(CountLoLo); 

GrauidMeanShipLCUSpotldle := GrandMeanShipLCUSpotIdle 

+ MeanShipLCUSpotIdle; 

GrandMeanShipCWFSpotidle := GrandMeanShipCWFSpotIdle 

+ MeanShipCWFSpotIdle; 

GrandMeanShipLoLoSpotIdle := GrandMeanShipLoLoSpotIdle 

+ MeanShipLoLoSpotIdle; 

WriteLineC(INTTOSTR(Reps) + * " + NameOfShip + 

" " + REALTOSTR(MeanShipLCUSpotIdle) + 

" " + REALTOSTR(MeanShipCWFSpotIdle) + 

" " + REALTOSTR(MeanShipLoLoSpotIdle)); 
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Ship := ASK ShlpBullder Next(Ship); 


END WHILE; 


{ Determine Beach spot stats } 

IF ( Reps = 1 ) 

WriteLineD(" "); 

WriteLineD(" "); 

WriteLineD(".Idle Beach Spot TimeStats."); 

WriteLineD(" "); 

WriteLineD{" "); 

WriteLineD("Rep# Beach Make Beach ID Mean 

Idle Time"); 


END IF; 
k := 0; 

Beach := ASK BeachBuilder First(}; 

WHILE Beach <> NILOBJ 

k := k + 1; 

TypeOfBeach := ASK Beach BeachMake; 
iDOfBeach := ASK Beach BeachiD; 

FOR i := 1 TO (ASK Beach NumSpots) 

BeachSpotidle := BeachSpotidle + ASK Beach 

BeachSpotli].TotalldleTime; 


END FOR; 

MeanBeachSpotidle := BeachSpotidle / FLOAT(ASK Beach 

NumSpots); 

WriteLineD(INTTOSTR(Reps) + " " + 

BeachTypeToStr(TypeOfBeach) + " " + 


217 










iDOfBeach + " • + 

REALTOSTR(MeanBeachSpotldle)); 

GrandMeanBeachSpotldleTime[k].Time := 

GrandMeanBeachSpotIdleTime[k].Time + MeanBeachSpotIdle; 

BeachSpotIdle :- 0.0; 

Beach := ASK BeachBuilder Next(Beach); 

END WHILE; 


IF { Reps = 1 ) 

WriteLineA(" "); 

WriteLineA(" "); 

WriteLineA(".Throughput Stats.") 

WriteLineA(" "); 

WriteLineA(" "); 

WriteLineA("Rep# Total Time"); 

END IF; 

WriteLineA(INTTOSTR(Reps) + " " + 

REALTOSTR(OffloadTime)); 


IF ( Reps = 1 ) 


WriteLineB(" "); 
WriteLineB(" "); 

WriteLineB(". 

WriteLineB(" "); 
WriteLineB(" "); 
WriteLineB("Rep# 

CWF Mean LCU 

WriteLineB(" 

Beach 


Time in Queue Stats 


Mean LCU 
Mean LSV 
Ship 
Beach 


Mean LSV 
Mean CWF" 
Ship 
Beach"); 


") 


Mean 

Ship 


END IF; 
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WriteLineB(INTTOSTR(Reps) + " " + 

REALTOSTR(MeanLCUinSQ) + 

" " + REALTOSTR(MeanLSVinSQ) + " " + 

REALTOSTR (IfeanCWFinSQ) + 

" " + REALTOSTR(MeanLCUinBQ) + " " + 

REALTOSTR(MeanLSVinBQ) + 

" " + REALTOSTR(MeanCWPinBQ)); 


IF { ASK RepManager OutputToScreen ) 


OUTPUT; 

OUTPUT; 

OUTPUT(".Throughput Stats.") ; 

OUTPUT; 

OUTPUT; 

END IF; 

OUTPUT; 

OUTPUT("Rep# Total Time"); 

OUTPUT(INTTOSTR(Reps) + " " + REALTOSTR(OffloadTime)); 

OUTPUT; 

OUTPUT; 

{ If more than one ship, must cycle through list to 

determine if LastLoad = T for each. If true, and RepMngr 
is Done, then simulation is truely finished and Stats can 
be dumped. If any ships still have vehicles, then only the 
current ship can be reset and must ask SLOP to GetLighter. 
GetLighter must be modified to cycle through all ships 
in list when CheckSpots is fired. } 

IF (ASK RepManager Done) 

WriteLineA(" "); 

WriteLineA(" Total number of reps completed = " + 
INTTOSTR(Reps)); 
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WriteLineB{" "); 

WriteLineB(" Total number of reps ccmpleted = " + 
INTTOSTR(Reps)); 

WriteLineC(" "); 

WriteLineC(" Total number of reps con^leted = " + 
INTTOSTR(Reps)); 

WriteLineD{" "); 

WriteLineD(" Total number of reps completed = " + 
INTTOSTR(Reps)); 

WriteLineD(" ") ; 

MeanTPut := MeanTPut / FLOAT(Reps); 

GrandMeanLCUinBQ := GrandMeanLCUinBQ / FLOAT(Reps); 
GrandMeanLSVinBQ ;= GrandMeanLSVinBQ / FLOAT(Reps); 
GrandMeanCWFinBQ ;= GrandMeanCWFinBQ / FLOAT(Reps); 
GrandMeanLCUinSQ := GrandIfeanLCUinSQ / FLOAT{Reps); 
GrandMeanLSVinSQ := GrandMeanLSVinSQ / FLOAT(Reps); 
GrandMeanCWFinSQ := GrandMeanCWFinSQ / FLOAT(Reps); 

GrandMeanShipLCUSpotldle := GrandMeanShipLCUSpotIdle 

/ FLOAT(Reps); 

GrandMeanShipCWFSpotIdle := GrandMeanShipCWFSpotIdle 

/ FLOAT(Reps); 

GrandMeanShipLoLoSpotIdle := GrandMeanShipLoLoSpotidle 

/ FLOAT(Reps); 


FOR i := 1 TO NumBeaches 

GrandMeanBeachSpotIdleTime[i].Time := 

GrandMeanBeachSpotIdleTime[i].Time / FLOAT(Reps); 

WriteLineD("Grand Mean For Beach Spot Idle Time = " 

+ REALTOSTR(GrandMeanBeachSpotIdleTime[i].Time) 
+ " For Beach ID = " 

+ GrandMeanBeachSpotIdleTime[i].Place); 


END FOR; 

writeLineA("Mean Throughput Time = " + REALTOSTR(MeanTPut)); 
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II 


WriteLineB("Grand Mean For LCU in Beach Queue = 

+ REALTOSTR(GrandMeanLCUinBQ)); 
writeLineB("Grand Mean For LSV in Beach Queue = " 

+ REALTOSTR(GrandMeanLSVinBQ)); 

WriteLineB{"Grand Mean For CWF in Beach Queue = " 

+ REALTOSTR(GrandMeanCWFinBQ)); 

WriteLineB{"Grand Mean For LCU in Ship Queue = " 

+ REALTOSTR (GrandMeeUiLCUinSQ)) ; 
writeLineB("Grand Mean For LSV in Ship Queue = " 

+ REALTOSTR(GrandMeanLSVinSQ)); 
writeLineB("Grand Mean For CWF in Ship Queue = " 

+ REALTOSTR(GrandMeanCWFinSQ)); 

writeLineC("Grand Mean For LCU Ship Spot Idle Time = " 

+ REALTOSTR(GrandlfeanShipLCUSpotIdle)); 
WriteLineC("Grand Mean For CWF Ship Spot Idle Time = " 

+ REALTOSTR(GrandMeanShipCWFSpotIdle)); 
writeLineC("Grand Mean For LoLo Ship Spot Idle Time = " 
+ REALTOSTR(GrandMeanShipLoLoSpotIdle)); 

OUTPUT("Mean Throughput Time = " + REALTOSTR(MeanTPut)) 
OUTPUT; 

OUTPUT; 


ELSE 

OffloadTime := 0.0; 

{Reset all lighters} 

Lighter := ASK LighterBuilder First(); 

WHILE Lighter <> NILOBJ 

ASK Lighter TO ResetLighterStats; 

Lighter := ASK LighterBuilder Next(Lighter); 
END WHILE; 

{Reset the RoRo) 
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Ship := ASK ShipBuilder First(); 

WHILE Ship <> NILOBJ 

ASK Ship TO ResetShipStats; 

Ship := ASK ShipBuilder Next(Ship); 

END WHILE; 

ASK SLOP TO ResetSLOP; 

{Reset all beaches} 

Beach := ASK BeachBuilder First(); 
WHILE Beach <> NILOBJ 

ASK Beach TO ResetBeachStats; 

Beach := ASK BeachBuilder Next(Beach); 
END WHILE; 


END IF; 

END METHOD; 

END OBJECT; 

END MODULE. 

DEFINITION MODULE WriteLine; 

{ 

Module Name: WriteLine Last Modified: 20 Jul 93 

Author: M. Bailey Modified by: J. S. Noel 

Prof. NPGS 

DESCRIPTION: Defines the WriteLine procedure for output to 
the file "Sim.Out". 

} 


PROCEDURE WriteLine(IN String : STRING); 
PROCEDURE WriteLineAdN String : STRING); 
PROCEDURE WriteLineBdN String ; STRING); 
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PROCEDURE WriteLineCdN String : STRING); 
PROCEDURE WriteLineDdN String : STRING); 

END MODULE. 


IMPLEMENTATION MODULE WriteLine; 

{ 

Module Name: WriteLine Last Modified: 20 Jul 93 

Author: M. Bailey Modified by: J. S. Noel 

prof. NPGS 

DESCRIPTION: Implements the WriteLine procedure for output 

to the file "Sim.Out". 

} 

FROM lOMod IMPORT FileUseType(Output); 

FROM lOMod IMPORT StreamObj; 

FROM utilMod IMPORT DateTime; 


VAR 

DT : STRING; 

TraceStream : StreamObj; 

TraceStreamA : StreamObj; 

TraceStreamB : StreamObj; 

TraceStreamC : StreamObj; 

TraceStreamD : StreamObj; 

{ } 

PROCEDURE WriteLine(IN String : STRING); 

{ } 

BEGIN 

IF (TraceStream = NILOBJ) 

NEW(TraceStream) ; 

ASK TraceStream TO Open("sim.out". Output); 

DateTime(DT); 
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ASK TraceStream TO WriteString(DT); 
ASK TraceStream TO WriteLn; 

ASK TraceStream TO WriteLn; 

END IF; 

ASK TraceStream TO WriteString(String); 
ASK TraceStream TO WriteLn; 

END PROCEDURE; 


{ 

PROCEDURE WriteLineAdN String : STRING); 

{ 

BEGIN 

IF (TracestreamA = NILOBJ) 

NEW(TracestreamA); 

ASK TraceStreamA TO Open("Total.out". Output); 
DateTime(DT); 

ASK TraceStreamA TO WriteString(DT); 

ASK TraceStreamA TO WriteLn; 

ASK TraceStreamA TO WriteLn; 

END IF; 

ASK TraceStreamA TO WriteString(String); 

ASK TraceStreamA TO WriteLn; 

END PROCEDURE; 


{ 

PROCEDURE WriteLineBdN String : STRING); 

{ 

BEGIN 

IF (TracestreamB = NILOBJ) 

NEW(TraceStreamB); 

ASK TraceStreamB TO Open("Queue.out", Output); 
DateTime(DT) ; 








ASK TraceStreamB TO WriteString(DT); 
ASK TraceStreamB TO WriteLn; 

ASK TraceStreamB TO WriteLn; 

END IF; 

ASK TraceStreamB TO WriteString(String); 
ASK TraceStreamB TO WriteLn; 

END PROCEDURE; 


{ } 

PROCEDURE WriteLineCdN String : STRING); 

{ } 

BEGIN 

IF (TracestreamC = NILOBJ) 

NEW(TraceStreamC) ; 

ASK TracestreamC TO Open("SSpot.out", Output); 

DateTime(DT); 

ASK TraceStreamC TO WriteString(DT); 

ASK TraceStreamC TO WriteLn; 

ASK TraceStreamC TO WriteLn; 

END IF; 

ASK TraceStreamC TO WriteString(String); 

ASK TraceStreamC TO WriteLn; 

END PROCEDURE; 

} 
} 

BEGIN 

IF (TraceStreamD = NILOBJ) 

NEW(TracestreamD); 

ASK TraceStreamD TO Open("BSpot.out", Output); 

DateTime(DT); 


{ 

PROCEDURE WriteLineDdN String : STRING); 
{ 
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ASK TraceStreamD TO WriteStringCDT); 
ASK TraceStreamD TO WriteLn; 

ASK TraceStreamD TO WriteLn; 

END IF; 

ASK TraceStreamD TO WriteString(String); 
ASK TraceStreamD TO WriteLn; 

END PROCEDURE; 


END MODULE, 
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APPBHDIX D SAXPLS IHPDT FZLXS 


....BchName. dat.-. 

4 # Number of Beaches in this file/simulation scenario 


SouthBeach 

- > 

dummy 

W 

# 

Name 

of 

Beach. 

Must 

be 

of 

STRING. 

Admin 

- > 

dummy 

W 


Name 

of 

Beach. 

Must 

be 

of 

STRING. 

Army 

- > 

dummy 

W 

# 

Name 

of 

Beach. 

Must 

be 

of 

STRING. 

Navy 

- > 

dummy 

W 

# 

Name 

of 

Beach. 

Must 

be 

of 

STRING. 


This file contains the names of the four beaches in the 
validation scenario. The format is as follows: 


NumBeaches ... The number of beach names to be read. 
BeachName -> ... Name of beach. 


The format is the same for all input files. The first 
line in the file contains the number of records to be read. 
The first line of each record contains the record 
identifier, such as the beach name, followed by the symbol 
" -> ". The lines that follow contain the rest of the 

record. The end of a record is indicated by a double slash 
" \\ ". Comments are preceded by a " # " symbol. 

..-.- -BchType.dat-- 


4 


# Number of Beach records in this file. 


SouthBeach 

BareBeach 

2 


-> # Beach ID. Must be STRING. 

# Type of Beach. Must be of BeachType. 

# Number of Spots. Must be INTEGER. 
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LCU 

T 


# Spot Type. Must be SpotType. 

# Spot Free. Must be BOOLEAN. 


# Spot Type. Must be SpotType. 

# Spot Free. Must be BOOLEAN. 

# Distance from SLOP. Must be REAL. 

# Distance from RefuelArea. Must be REAL 


Admin -: 
FloatingGtfPier 
1 


# Beach ID. Must be STRING. 

# Type of Beach. Must be of BeachType. 

# Number of Spots. Must be INTEGER. 


# Spot Type. Must be SpotType. 

# Spot Free, fftjst be BOOLEAN. 

# Distance from SLOP. Must be REAL. 

# Distance from RefuelArea. Must be REAL 


Army 

FloatingGtfPier 
2 


# Beach ID. Must be STRING. 

# Type of Beach. Must be of BeachType. 

# Number of Spots. Must be INTEGER. 

# Spot Type. Must be SpotType. 

# Spot Free. Must be BOOLEAN. 

# Spot Type. Must be SpotType. 

# Spot Free. Must be BOOLEAN. 

# Distance from SLCP. Must be REAL. 

U Distance from RefuelArea. Must be REAL 


Navy 

FloatingCWPier 
1 


# Beach ID. Must be STRING. 

# Type of Beach. Must be of BeachType, 

# Number of Spots. Must be INTEGER. 


# Spot Type. Must be SpotType. 

# Spot Free. Must be BOOLEAN. 
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6.0 # Distance from SLCP. Must be REAL. 

6.0 # Distance from RefuelArea. Must be REAL. 

W 


LtNcune. dat 


12 # Number of Lighters in this file/simulation scenario 


ALFA -> diommy \\# ID of Lighter. Must be a unique STRING. 
BRAVO -> dummy \\# ID of Lighter. Must be a unique STRING. 
CHARLIE -> dummy \\# ID of Lighter. Must be a unique STRING. 
DELTA -> d\immy \\# ID of Lighter. Must be a unique STRING. 
ECHO -> dummy \\# ID of Lighter. Must be a unique STRING. 
FOXTROT -> dummy \\# ID of Lighter. Must be a unique STRING. 
GOLF -> dummy \\# ID of Lighter. Must be a unique STRING. 
HOTEL -> dummy \\# ID of Lighter. Must be a unique STRING. 
INDIA -> dummy \\# ID of Lighter. Must be a unique STRING. 
JULIET -> dummy \\# ID of Lighter. Must be a unique STRING. 
KILO -> dummy \\# ID of Lighter. Must be a unique STRING. 
LIMA -> dummy \\# ID of Lighter. Must be a unique STRING. 


LtType.dat 


12 # Nxamber of Lighter records in this file. 


ALFA -> 

LCU2000 
LCU 
12.0 
10.0 
10 

92000.0 

41.6 

0.25 


# ID Of Lighter. Must be a unicjue STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 

# Full Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. I^st be REAL. 

# Min Fuel expressed in percent. Must be REAL. 
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w 

BRAVO 

LCU2000 

LCU 

12.0 

10.0 

10 

92000.0 

41.6 

0.25 

W 

CHARLIE 

LCU2000 

LCU 

12.0 

10.0 

10 

92000.0 

41.6 

0.25 

W 

DELTA 

LCU2000 

LCU 

12.0 

10.0 

10 

92000.0 

41.6 

0.25 

W 

ECHO 

LCU2000 

LCU 

12.0 

10.0 

10 

92000.0 


-> # ID of Lighter. Must be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 

# Pull Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 


-> # ID of Lighter. Must be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Mcix Speed. Must be REAL. 

# Full Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 

-> # ID of Lighter. Must be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 

# Full Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 


-> # ID of Lighter. Must be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 

# Full Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 
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41.6 

0.25 


W 


# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 


FOXTROT 

LCU1610 

LCU 

12.0 

10.0 

4 

3290.0 

36.0 

0.25 

W 


-> # ID of Lighter. Must be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 

# Full Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Mist be REAL. 

# Min Fuel expressed in percent. Must be REAL. 


GOLF 

LCU1610 

LCU 

12.0 

10.0 

3 

3290.0 

36.0 

0.25 

W 


-> # ID of Lighter. Must be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be real. 

# Full Load Speed. Must be REAL. 

# Max Load in U of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 


HOTEL - > 
LSV 
LCU 
10.6 


# ID of Lighter. Must be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 


10.0 

25 

165000.0 

145.8 

0.25 

W 


# Full Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 


INDIA -> # ID of Lighter. Must be a unique STRING type. 
CWF31 # Typs of Lighter. Must be of LighterNameType. 
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CWF 

6.0 

3.0 

15 

1000.0 

20.8 

0.25 

W 

JULIET 

CWF31 

CWF 

6.0 

3.0 

15 

1000.0 

20.8 

0.25 

W 

KILO -> 

CWF31 
CWF 
6.0 
3.0 
15 

1000.0 

20.8 

0.25 

W 

LIMA -> 

CWF31 

CWF 

6.0 

3.0 

15 

1000.0 

20.8 

0.25 

W 


# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 

# Full Load Speed. Must be REAL. 

# 14ax Load in # of vehicles. Mast be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 


# ID of Lighter. Must be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 

# Full Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 


# ID of Lighter, fftist be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 

# Full Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 


# ID of Lighter. Must be a unique STRING type. 

# Type of Lighter. Must be of LighterNameType. 

# Spot Type Required. Must be SpotType. 

# Max Speed. Must be REAL. 

# Full Load Speed. Must be REAL. 

# Max Load in # of vehicles. Must be INTEGER. 

# Fuel Capacity in gallons. Must be REAL. 

# Burn Rate in Gallons per hour. Must be REAL. 

# Min Fuel expressed in percent. Must be REAL. 
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Notes: a. LighterNameType = (LCU1466, LCU1610. LCU2000, 

CWFll, CWF21, CWF31, LSV). 

These are the only options for LighterNameType. 

b. SpotType = (LCU, CWF, LoLo). This refers to the 
type of spot required for mooring by a lighter. 
An LSV uses an LCU spot for mooring to the RRDF, 
so this would be indicated in this field. 


-RFAName.dat- 

1 # Number of Refuel Areas in this file/simulation scenario 

FuelDepot -> dummy \\ # Name of Refuel Area. Must be of 

STRING type. 

.RFAType.dat. 

1 # Number of Refuel Area records in this file. 


FuelDepot -> 

STRING type. 

2 

6.0 


T 


# Name of Refuel Area. Must be of 

# Number of spots. Must be INTEGER. 

# Distance from Ship. Must be REAL. 

# For each spot there must be a data 
set. For 2 spots, we need two 
BOOLEAN expressions in the following 
two fields. If there were three 
spots. There would be three 

"SpotFree" fields in this record. 

# Spot Free. Must be BOOLEAN. 


T 


# Spot Free. Must be BOOLEAN. 
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3500.0 


# Fuel pun^ rate in gallons per hour. 
Must be REAL. 

W 


ShpName.dat 


1 # Number of Ships in this file/simulation scenario 


Belatrix -> dummy \\ # Name of Ship. Must be of STRING 

type. 


ShpType.dat 


1 # Number of Ship records in this file. 


Belatrix -> # Name of Ship. Must be of STRING 

type. 

SSR # Ship Type. Must be ShipTypeType ( SSR, NSSR ). 

6.0 # Distance from BLCP. Must be REAL. 


3 

# 

Number of 

spots. 

Must be INTEGER 

LCU 


Spot Type. 

Must 

be SpotType. 

T 

# 

Spot Free. 

Must 

be BOOLEAN. 

CWF 

# 

Spot Type. 

Must 

be SpotType. 

T 

# 

Spot Free. 

Must 

be BOOLEAN. 


LoLo 

T 


# spot Type. Must be SpotType. 

# Spot Free. Must be BOOLEAN. 


60 

0 

834 


W 


# Number of 

# Number of 

# Number of 


LoLo vehicles. Must be INTEGER. 

RRDF Vehicles. Must be INTEGER. 

Any Spot vehicles. Must be INTEGER. 
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Ship type is either self-sustaining (SSR), or non-self 
sustaining (NSSR). These are the only two options. 

For each spot in the record, two fields must appear: 

1. SpotType, must be of type SpotType which is either 
LCU, CWF, or LoLo. These are the only options for 
this field. 

2. SpotFree, indicates the status of the spot, normally 
the spot would be empty at the start of a simulation 
run, thus, indicated by a "T" for TRUE. 

The number of vehicles on the ship can be partitioned 
into three sets. For example, in the set above there are a 
total of 894 vehicles onboard. Of those, 60 must be 
offloaded from the LoLo spot, zero are may be removed from 
the RRDF only, and 834 can be removed from any spot, or the 
first spot available. 
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APPSMDZZ ■ SJUfPLX OUTPUT PZLSS 


This appendix contains a ccaiplete set of output files. 
The sample files below are the results of ten replications 
of the validation scenario. The files themselves are self 
explanitory, all times are in minutes. 


.Total.out 

.Throughput Stats 

Rep# Total Time 

1 5795.406696 

2 4516.278981 

3 5049.667063 

4 4212.945852 

5 4342.143585 

6 4598.425586 

7 4306.958894 

8 5356.148307 

9 4627.004724 

10 4096.678710 

Total number of reps completed = lO 
Mean Throughput Time = 4690.165840 


BSpot.out 


.Idle Beach Spot Time Stats.. 

Rep# Beach Make Beach ID Mean Idle Time 

1 BareBeach NorthBeach 1851.511594 

1 FloatingCWPier Admin 2696.831036 

1 FloatingCWPier Army 3044.404815 
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1 

FloatingCWPier 

Navy 

2706.889934 

2 

BareBeach 

NorthBeach 

2126.357278 

2 

FloatingCWPier 

Admin 

2633.401745 

2 

FloatingCWPier 

Army 

2666.989835 

2 

FIoatingCWPier 

Navy 

0.000000 

3 

BareBeach 

NorthBeach 

2214.400175 

3 

FIoatingCWPier 

Admin 

2615.639354 

3 

FloatingCWPier 

Army 

2678.884777 

3 

FloatingCWPier 

Navy 

0.000000 

4 

BareBeach 

NorthBeach 

2030.798808 

4 

FIoatingCWPier 

Admin 

2660.519865 

4 

FloatingCWPier 

Army 

2757.632933 

4 

FloatingCWPier 

Navy 

0.000000 

5 

BareBeach 

NorthBeach 

2056.886539 

5 

FloatingCWPier 

Admin 

2778.227232 

5 

FloatingCWPier 

Array 

3207.377480 

5 

FloatingCWPier 

Navy 

0.000000 

6 

BareBeach 

NorthBeach 

2289.250141 

6 

FIoatingCWPier 

Admin 

2956.250880 

6 

FloatingCWPier 

Army 

2864.941143 

6 

FIoatingCWPier 

Navy 

0.000000 

7 

BareBeach 

NorthBeach 

2098.334342 

7 

FloatingCWPier 

Admin 

2689.334808 

7 

FloatingCWPier 

Army 

3177.835989 

7 

FloatingCWPier 

Navy 

0.000000 

8 

BareBeach 

NorthBeach 

2368.197230 

8 

FloatingCWPier 

Admin 

3099.115844 

8 

FloatingCWPier 

Army 

3013.179778 

8 

FloatingCWPier 

Navy 

0.000000 

9 

BareBeach 

NorthBeach 

2420.594112 

9 

FloatingCWPier 

Admin 

2873.591649 

9 

FloatingCWPier 

Army 

3006.716735 

9 

FloatingCWPier 

Navy 

0.000000 

10 

BareBeach 

NorthBeach 

2186.314462 

10 

FloatingCWPier 

Admin 

2618.761722 

10 

FloatingCWPier 

Army 

3208.601058 

10 

FIoatingCWPier 

Navy 

0.000000 


Total number of reps completed = lO 
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Grand Mean For Beach Spot Idle Time = 2164.264468 For Beach 
ID = NorthBeach 

Grand Mean For Beach Spot Idle Time = 2762.167413 For Beach 
ID = Admin 

Grand Mean For Beach Spot Idle Time = 2962.656454 For Beach 
ID = Army 

Grand ffean For Beach Spot Idle Time = 270.688993 For Beach 
ID = Navy 

.SSpot.out. 


..Idle Ship Spot 

Rep# Ship Name Mean LCU 

1 Belatrix 1983.547568 

2 Belatrix 1512.667104 

3 Belatrix 2438.643103 

4 Belatrix 2349.907577 

5 Belatrix 1469.847130 

6 Belatrix 1950.243928 

7 Belatrix 820.284977 

8 Belatrix 1468.487069 

9 Belatrix 2014.772655 

10 Belatrix 1474.539864 


Time Stats. 

Mean CWF Mean LoLo 

2274.516363 1541.758145 

1215.405897 1984.996518 

2187.915981 1553.953693 

1956.123552 1665.716019 

1351.808132 2062.091047 

1334.895501 2027.822743 

1445.356970 1481.796293 

2564.665516 1515.234788 

1953.579125 1429.237818 

1584.341778 1938.257845 


Total number of reps completed = 10 

Grand Mean For LCU Ship Spot Idle Time = 1748.294097 
Grand Mean For CWF Ship Spot Idle Time = 1786.860881 
Grand Mean For LoLo Ship Spot Idle Time = 1720.086491 
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Queue.out 


Time in Queue Stats 


Rep# 

Mean LCU 

Mean 

LSV 

Mean CWF 


Ship 

Ship 


Ship 

1 

457.868142 

630.036495 


582.470282 

2 

716.492200 

535.805339 


433.802158 

3 

757.966480 

393.900755 


466.858381 

4 

809.126943 

285.984057 


503.752261 

5 

902.481843 

587.302477 


398.722487 

6 

1099.275997 

518.580067 


680.860167 

7 

828.091272 

552.074930 


456.557370 

8 

1197.924213 

529.680445 


465.659741 

9 

995.634134 

716.634971 


547.029459 

10 

983.139182 

434.378531 


391.346992 

Rep# 

Mean LCU 

Mean LSV 

Mean CWF 


Beach 

Beach 

Beach 


1 

0.000000 

0.000000 

0. 

000000 


2 

0.000000 

0.000000 

0. 

000000 


3 

0.000000 

0.000000 

0. 

000000 


4 

0.000000 

0.000000 

0. 

000000 


5 

0.000000 

0.000000 

0. 

000000 


6 

0.000000 

0.000000 

0. 

000000 


7 

0.000000 

0.000000 

0. 

000000 


8 

0.000000 

0.000000 

0. 

000000 


9 

0.000000 

0.000000 

0. 

000000 


10 

0.000000 

0.000000 

0. 

000000 


Total 

ntamber of reps completed = 

10 



Grand Mean For LCU in Beach Queue = 0.000000 

Grand Mean For LSV in Beach Queue = 0.000000 

Grand Mean For CWF in Beach Queue = 0.000000 

Grand Mean For LCU in Ship Queue = 874.800041 

Grand Mean For LSV in Ship Queue - 518.437807 

Grand Mean For CWF in Ship Queue = 492.705930 
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